mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo griglia modificabile

Ragazzi potete consigliarmi, per favore, qualche componente che mi 
permetta di avere un elenco di voci sulla sinistra e dei valori sulla 
destra e che mi permetta di poter usare la tastiera per modificare il 
contenuto delle celle?
Dovrei visualizzare appunto un elenco di voci con accanto dei valori 
numerici, e per il momento ho caricato in runtime delle label con delle 
textbox, ma a me interesserebbe qualcosa tipo ListView o simili, solo 
che dovrei poter cliccare sulla colonna di destra e da tastiera digitare 
dei valori.
Thx in anticipo!

 ha scritto nel messaggio
news:xkoYc.65316$1V3.1...@twister2.libero.it...

Presumo VB6,
se si vado a ricordi,
a sinistra una treeview o una listview,
a destra una flexgrid dove, se ricordo, al focus o al clic del mouse, è
possibile attivare una textbox,
quindi digitare dei valori.
Ave
giuseppeD
---
CCR

Newsgroup: it.comp.lang.visual-basic
Titolo: datagrid background colour

does anybody know make the column in the datagrid with different
background colour, meaning that column1 is blue in colour, column2 is
yellow in colour..?

 yellow in colour..?
Usually I do a cicle for all rows
for example
nRow = 1
MS1.Col = 3
    For nRow = 1 To MS1.Rows - 1
            'imposto la riga corrente
                MS1.Row = nRow
                MS1.CellBackColor = vbYellow
                MS1.CellForeColor = vbBlack
                MS1.CellFontBold = True
      Next nRow
        End If
Sorry for my bad english but this NG is in italian.
;-)
-- 
MasterDavidex
23 - 118 - RA
Bmw 4Ever



This is a MSFlexGrid, not a datagrid!  ;-)
Ciao!

 This is a MSFlexGrid, not a datagrid!  ;-)
Sorry, I have read bad....
;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: VisualBasic e Excel

C'e' da qualche parte qualche info che spieghi hai newbie come si puo'
collegare a exel prg in Vb
grazie e ciao

...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e DataGrid [ci riprovo]

Salve,
scusate la domanda banale, ma non riesco a trovare il modo di recuperare il
contenuto di una cella di una DataGrid conoscendo la riga e la colonna.
Grazie in anticipo

 riga e la colonna.
Se al datagrid hai legato un recordset...
DataGrid1.DataSource.Fields.Item(colonna).Value
Magari prima testa che sia AdStateOpen e non sia Eof o Bof.
Ciao
Alberto
--
"Non mi sembra piů granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
cňsta chě l'č piň granda, gnuranta."


Se fai cosi ?
DataGrid1.Col = nn
DataGrid1.Row = nn
MsgBox DataGrid1.Text
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

contenuto di una cella di una DataGrid conoscendo la riga e la colonna.
Dovrebbe essere cosi':
datagrid1.Columns(<NumeroColonna>).CellValue(datagrid1.RowBookmark(<NumeroRiga>))
ciao

 ha scritto nel messaggio
news:ci6rbc$ram$1...@grillo.cs.interbusiness.it...

Grazie mille a tutti.
Risolto
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ! Come si fa uno ZIP?

Ciao,
Solo per curiosità, c'e' qualcuno che sa come si fa un programma che riduce
le dimensioni di un file?
Non che abbia bisogno di farlo, visto che ne esistono tanti, ma per pura
curiosita'.
Grazie,
Tommy

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aggiunta dati lentissima con ADO

Ciao a tutti !!
Della serie : "Database with VB6, la saga continua"
Sto cercando di ottimizzare il salvataggio di dati su un file MDB formato
Access2000, e dopo aver ridotto all'osso la routine di aggiunta dati mi
accorgo ancora che e' troppo lento.
Vi spiego : il mio programma legge dei dati da un file Ascii, separa le
varie stringhe e le salva campo per campo in un array.Questo viene svolto
sufficientemente veloce, non e' il massimo ma...ci si puo' accontentare...
Il problema arriva quando salvo questi campi sul file Mdb. Tutto rallenta
del 40-50%.
Il salvataggio arriva pressapoco cosi' :
Sub SalvaMDB()
    Rst.AddNew
    Rst!Nome = "" & Campo(1)
    Rst!Cognome = "" & Campo (2)
    Rst!Via = "" & Campo(3)
    etc...
    etc..
    (questo per circa 50 campi)
    Rst.Update
    Rst.Close
End Sub
Voila', tutto li. Prima usavo una serie di IF..THEN per verificare se i
campi sono vuoti, poi ho tolto pure quelli e ho usato il sistema che si vede
sopra...ma non ho notato molta differenza...
Questo ciclo viene ripetuto ad ogni riga letta dal file Ascii.
Quindi, riepilogando : 5000 righe lette dal file Ascii , 50 campi da salvare
sul file Mdb, ad ogni ciclo di lettura (line input#) viene ripetuto il ciclo
di cui sopra.
Si potra' ottimizzare ancora ,o meglio di cosi' e' impossibile ?? (ma come
diavolo fa Access ad essere cosi' veloce ??)
Ah, uso ADO , VisualBasic6, Win98 !!
Grazie per aver letto il mio messaggio !
Spero di potervi ricambiare... :-)
DaVe
--
Leave [KILL SPAM] from adress.

Prova a usare l'SQL.
Con la INSERT potrai cosě inserire un record alla volta e non un campo alla
volta.
Ciao

Ci sta che stia dicendo una mega-capperata ma perche' alla fine della sub metti
Rst.Close?
Secondo me e' questo che rallenta la Close falla solamente al termine
dell'aggiornamento...
Se poi tut migliora me lo fai sapere??? Grazie...
--
!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!"Bisogna essere pronti, ogni giorno,
! a spostare i paletti delle proprie certezze."
!
!HomePage : 
http://www.levon.it/daniele
!
!------------------------------------------------!

 !
Gia'..hai ragione :-)

 Ora file che e' una bellezza !!
Oltre a quanto ti hanno già consigliato, se vuoi ottimizzare ulteriormente,
invece di scrivere
Rst.AddNew
Rst!Nome = "" & Campo(1)
Rst!Cognome = "" & Campo (2)
etc...
etc..
puoi scrivere
Dim Nomi As Variant, Valori As Variant
Nomi = Array("Nome", "Cognome", etc. etc.) 'Sono i nomi dei campi che vuoi
compilare
Valori = Array("" & Campo(1), "" & Campo(2), etc. etc.) 'Sono i valori,
vanno messi nello stesso ordine
Rst.AddNew Nomi, Valori
In questo modo dovrebbe essere un po' più veloce e soprattutto è un metodo
che da meno problemi quando il recordset è composto da un numero elevato di
campi.
Ciao,
   <--< Nik >-->


!------------------------------------------------!
!ICQ     : 8281944
!E-Mail  : 
Dan...@levon.it
!
!"Bisogna essere pronti, ogni giorno,
! a spostare i paletti delle proprie certezze."
!

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB] Algoritmo Sconosciuto

Scusate l'ignoranza, ma avrei bisogno di un qualche aiuto riguardo un
algoritmo. "L'Horizontal Parity Check."
Non so come calcolarlo correttamente, ho provato un po di algoritmi che mi
ricordavo, ma senza nessun risultato.
Qualcuno puň aiutarmi???
Grazie 1000
Deimos

 ricordavo, ma senza nessun risultato.
Dal nome dell'algoritmo mi sembra che sia semplicemente il bit di parità ...
cerca la stringa "calcolo bit parità" su 
groups.google.com
saluti

Già fatto. Non trovo nulla...

 Già fatto. Non trovo nulla...
Aspetta ma non e' che la cosa e' + complessa ? se ricordo bene in una
lezione di informatica moooooooolti anni fa si parlava di bit parita orizz.
verticali ecc
e' un controllo associato al pacchetto dati mi pare ?
0 0 0 | X
0 0 0 | X
0 0 0 | X
- - -
Y Y Y   (XY)
0 = DATI
X = parita' orizz
Y = parita' verticale
XY = un semi - CRC
se e' cosi potresti partire da "bit parit"  e man mano scremare la ricerca !


In effettģ io devo calcolare il check digit alla fine di ogni trasmissione
di dati da porta seriale, i dati mi arrivano da un terminalino lettore
codici a barre. Alla fine di ogni record inviato pospone un byte che lui
chiama BCC o Block Control Code. Io inizialmente avevo provato a fare lo XOR
su tutti i byte trasferiti ma niente da fare... non ci salto fuori.
Mi sa che ometterņ il controllo dell'errore nel programma di questo
passo....
Deimos

 passo....
Lo so che questo post non è molto in tema, non ho mai lavorato con
i codici a barre, ma volevo sottolineare che saltare i controlli non
è mai una buona idea. Metti che un cliente di un negozio che usa
il tuo prog si ritrova sullo scontrino una bottiglia di Champagne
da 80 euro, invece del pacchetto di fazzolettini di carta da 10 c.
che ha comprato, solo perché il codice a barre era sporco ed è stato
letto male... con chi dici che se la prendono, il gestore e il cliente ?
D'altra parte qui di lettori c.a.b. se ne è parlato spesso, hai provato
a fare una ricerca su 
http://groups.google.com/advanced_group_search
inserendo il nome del NG e qualche keyword tipo "checksum
codice a barre" o simili ?
Bye, G.


Ciao e grazie ancora.

In data Wed, 27 Nov 2002 14:37:45 +0100, Emanuele ha deciso di
scrivere:
Scusa se mi intrometto... ma che tipo di codice è???
Ciao Emanuele
______________________
Emanuele
TDM 850 93' "la scura"
Ts4n full ergal
Ipaq 3630 ppc2002


ciao a tutti e scusate se vi ho rotto le scatole :)
ciao Matteo.

 era una cosa banale... [SNIP]
Scusa, a questo punto dovresti postare il codice che genera il controllo di
parita' orizzontale a uso e consumo di tutti! ;)
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org


mmmm... mi vergogno!!! :P
Stasera posterò il codice o se preferisci (privatamente) manderò a chi vuole
come si calcola un byte di parità orrizzontale. Che sembrava una cosa
difficle ma quando ho capito come funzionava mi sono stritolato le OO in
mezzo al cassetto della scrivania....
Newsgroup: it.comp.lang.visual-basic
Titolo: Help per SQL

Devo cambiare, con codice SQL, il nome di un campo in una tabella...
Nella tabella TabSpese ho un campo con nome CodSpesa e voglio farlo
diventare Codice, ma non posso agire direttamente sul file mdb, come faccio
con un'istruzione SQL ? Mi andrebbe bene avere una soluzione con VB e DAO...
ho provato a fare una cosa simile:
set rec = db.openrecordset("TabSpese")
set f = rec.fields("CodSpesa")
f.name
 ="Codice"
ma ha risposto picche :-(
--
Fabio Musciatelli

Non mi risulta tu possa cambiare nome "al volo" ad una colonna di dati.
Semmai dovrai usare 3 query tipo:
ALTER TABLE TABSPESE ADD CODICE VARCHAR(20)
UPDATE TABSPESE SET CODICE = CODSPESA
ALTER TABEL TABSPESE DROP COLUMN CODSPESA
Ammesso e non concesso che la tua CodSpesa non sia Prymary Key, nel qual
caso dovrai prima eliminare la chiave, le evntuali relazioni e poi
ripristinare entrambi.
ciao
ugo

 ALTER TABEL TABSPESE DROP COLUMN CODSPESA
Infatti.... immaginavo di dover fare cosi', ma speravo ci fosse un metodo
piu' diretto !
Grazie per l'aiuto...
--
Fabio Musciatelli

Newsgroup: it.comp.lang.visual-basic
Titolo: dbgrid e checkbox

Salve. E' possibile implementare un checkbox su una colonna di un dbgrid
(come si puo' fare su listview) ?
Grazie.

 Grazie.
http://groups.google.com/groups?as_q=dbgrid%20checkbox&as_ugroup=it.comp.lan
g.visual-basic&lr=&num=50&hl=it

Newsgroup: it.comp.lang.visual-basic
Titolo: FAX via VB

Ciao a tutti!
Qualcuno ha qualche idea su come fare per mandare fax via visual basic?
Spero che qualcuno mi aiuti.
Grazie, ciao.
Par Omshford.
(
pa...@hotmail.com
)


Poi usa le MAPI pe pilota' Exchange oppure accattarti n'aggeggio tipo
faxplus. vedi te.
ahoo ce c'ai na piotta?
Newsgroup: it.comp.lang.visual-basic
Titolo: codice x leggere da file

salve a tutti,
devo visualizzare i caratteri presenti in un file di testo (.txt) in
una casella di testo presenti in una form. Qualcuno mi può indicare il
codice? 
grazie anticipatamente a chi mi può aiutare...
alessio

fin...@libero.it
 ha scritto:

Altra soluzione è utilizzare la richtextbox ed assosciarli il tuo file 
testo.
Ciao Sybill

 codice?
Vb6 o .Net?
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 ha scritto nel messaggio 
news:1156785173....@i42g2000cwa.googlegroups.com...


alessio
se intendi farlo con VB6, alcuni comandi sono:
FreeFile
Open
Line Input
Close
per ognuno puoi guardare sulla MSDN cosa fanno (e relativi esempi)
ciau
AranBanjo
-- 
web: 
http://www.ponchio.it
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns
"Vorrei avere un crocifisso di kryptonite, cosi' potrei 
tenere lontani Dracula e Superman" - Jack Handey

Io uso questa, non bellissima ma comoda
Private Sub LeggiFile(NomeFile As String )
  Dim F, fs, s As String
  If Dir(NomeFile) & "@" = "@" Then ' Verifica se esiste
    MsgBox "Errore caricamento file dati " & NomeFile, vbCritical +
vbOKOnly
    Exit Sub
  End If
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set F = fs.GetFile(NomeFile)
  Set ts = F.OpenAsTextStream(ForReading, TristateUseDefault)
  Do While ts.AtEndOfStream <> True
    s = ts.ReadLine
   ' ....codice
    End If
  Loop
 
End Sub

 Set ts = F.OpenAsTextStream(ForReading, TristateUseDefault)
cosa devo mettere come valore su questi due attributi: ForReading,
TristateUseDefault???

 TristateUseDefault???
Scusasse! Dimenticai ...
  Const ForReading = 1, ForWriting = 2, ForAppending = 3
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

 TristateUseDefault???
 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Const ForReading = 1, ForWriting = 2, ForAppending = 8
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere registro di windows

Volevo sapere se qualcuno aveva idee o il codice o dove posso trovarlo
per
leggere modificare e agginungere al registro di windows
Io devo prendere un valore in una determinata posizione cambiarlo e
aggiornarlo
Grazie per l' eventuale risposta Emanuele
--
Posted from 
www.peminfo.it
 [194.79.194.200]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message 38A56DC9...@peminfo.it...


 ha scritto nel messaggio
news:38A56DC9...@peminfo.it...


 aggiornarlo
Curiosita': devi lavorare in VB o VBA?
--
Ciao.
Maurizio




 ha scritto nel messaggio
news:88483t$d1t$1...@nslave2.tin.it...


 ha scritto


 > > funziona bene ed č di facile utilizzo; puoi provare ad utilizzarlo se


 ha scritto nel messaggio
news:ppUp4.134244$C3.14...@news.infostrada.it...


 Potresti spedirlo anche a me THANX
fatto io adesso.
ciao, a.

 wrote in message 88a5i6$plt$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: DCom e Transaction Server

Salve a tutti,
stò realizzando un componente Dcom Active X Exe, e volevo sapere se potevo
in qualche modo usarlo da transaction server ,per poter sfruttare tutti i
vantaggi che questo offre.
Fino ad adesso ho sempre usato Dll activeX exe con Transaction server e non
sò se sia possibile  farlo (e soprattutto non saprei come) con un activeX
exe.
Qualcuno può aiutarmi?
Grazie

 ha scritto nel messaggio
news:ewko8.33619$S52.1...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Conoscere se è installato l'MDAC 2.5

Ciao a tutti,
    sapete come si controlla se esiste un'istallazione dell'MDAC già
presente sulla macchina?
    Grazie mille
    Michelangelo

 presente sulla macchina?
indicativamente:
Dim r As Object
on error resume next
Set r = CreateObject("adodb.connection")
if err.number<>0 then msgbox "aho' vedi di installare MDAC!" : err.clear
set r=nothing
on error goto 0
Se invece ti serve sapere la versione di ADO ho in mente una cosa ma è un
po' complessa... magari qualcuno ne suggerisce un semplice.
termoPilucco

po' complessa... magari qualcuno ne suggerisce un semplice.
Credo che funzioni fin dalla 2.0:
MsgBox r.Version
;-)
-- 
ciao, hal

stavo postando io questa risposta....
termopilucco č il solito lamer.....(ci vediamo domani mattina)
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
"Fabio andava bene durante il proibizionismo.
Appena si alzava, tutto il locale si girava!"
Mio fratello, 24 Agosto 2003, Ore 1:03
Newsgroup: it.comp.lang.visual-basic
Titolo: Ripetizione caratteri

Ciao a tutti!
Nella a funzione string (number as long, character)...
é possibile asseganre a "number as long" una variabile in modo che il
programma accetti tutti i numeri di volte che è ripetuto il carattere?
ICQ 5357495
s...@irdnet.com

 ha scritto nel messaggio
news:2ezO4.57763$xt2.7...@news.infostrada.it...

Se intendi:
dim Volte as Long
dim Stringa as String
Volte = 100
Stringa = String(Volte,"@")
la risposta è si.
Altrimenti non ho capito la domanda.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 la risposta č si.


 > la risposta è si.


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] CODICE CRIPTAZIONE

E se si volesse inserire un codice personale di criptazione/decriptazione di
personalizzazione in un'applicazione VB6 cosa consigliate del tipo far
uscire il NOME da qualche parte basandosi su qualche dato inserendo il
personal key?
Sono proprio a digiuno. Consigli benvengano.
-> da un SERIAL KEY, il proprio NOME COGNOME
-> meglio (semplice) il classico file.key criptato o serialKey
?!?!
Qualche esempio funzionale?
(evidentemente con possibilità di modifica...:-))))) )

c'č una ocx free da me...
cripta/decripta stringhe con chiave personale...
prova a vederla...
http://www.chiappori.net
--
--[GbC]--

tnx provo.
Sono proprio a digiuno completo!
Mi sto cimentando per qualche applicazione di controllo visti i vari caos
degli ultimi giorni!
Più che altro mi volevo cimentare sulla criptazione a stringhe fisse con
alcune formule che magari si trovano in circolazione da poter personalizzare
da codice.
Grazie.. prelevati i 20k durante la risposta al msg!
Se hai qualche codice VB6 benvenga!
bye
Franco

Trovata e provata, io volevo inserire il tutto in un codice diretto VB6, non
c'e' in giro qualche esempio di chiave di codifica cosě da poter
personalizzare il tutto?
Grazie per qualche info
Franco
"GbC" <mac...@ti.importa> ha scritto nel messaggio
news:8f8co4$9hm$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Inviare mail senza OE

deV<

 wrote in message
news:LXU07.5307$rh.1...@news6.giganews.com...


 non è facilissimo, ma neanche troppo difficile.
brrrrrrr....perfetto ma ora se esistesse qualche anima pia con due righe di
codice adatto....
grazie ragazzzzzz

Ciao,
sul SC ci sono esempi per SMTP e POP e credo anche altri esempi.
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------

 -----------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Far diventare un programma un servizio di Win2000

Ciao a tutti,
sapete dirmi come posso far diventare un programma (scritto in VB 6,
prossimamente lo porto su 
VB.NET
 o C#) un servizio di Windows 2000? In
pratica vorrei vederlo nella lista dei servizi.
Vi ringrazio anticipatamente.
Davide
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 servizi.
Con .NET puoi creare (utilizzando le apposite classi) un vero
servizio. Utilizzando VB6 bisogna utilizzare programmi
esterni. Io utilizzo FireDaemon (è appena uscita la nuova
versione) per questo:
http://www.firedaemon.com/
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 pratica vorrei vederlo nella lista dei servizi.
In VB6, aggiungi al form il controllo NTSVC.OCX della Microsoft (gratuito,
lo puoi scaricare dal sito Microsoft).
C'è anche un po' di codice 'base' da inserire nel form per fare l'install,
l'uninstall, lo stop, lo start ecc, del servizio.
Comprende già anche la scrittura su registro eventi.
Funziona benissimo su tutti gli NT, da NT4 a 2000Server a 2000Pro a tutti
gli XP.
Leggi bene anche i consigli che MS dà per come si fa un servizio (nessun
Msgbox, ecc...), per il resto è semplicissimo.
Abbinandolo al codice che mette l'iconcina nella tray-bar (vedi sito
comune), puoi fare un capolavoro.
Io lo uso regolarmente, e devo dire che in almeno due anni di servizi che
girano ne ho tanti, e nessuno ha mai dato alcun problema (salvo ovviamente i
bug che avrebbe avuto anche come applicativo interattivo).
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto!!!CICLI!!!

Sono Marco.
Vengo al dunque.
Come faccio, in visualbasic 4, ad ripetere una serie di operazioni
all'infinito?
Mi sono spiegato?
GRADITE RISPOSTE E-MAIL
Callegher Marco(14 anni)
E-Mail: 
calm...@ronchiato.it

Mi sono spiegato?
Do While True
    [operazioni]
Loop
Questo?

 wrote in message 7buidj$95b$1...@nslave1.tin.it...

O questo:
Do
    [operazioni]
Loop
Ma a che serve?
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: non mi accetta l'update del record

Premetto che sono un new-bye in VB6:
ho creato in ADO un database di pc aziendali ma all'istruzione:
    RecPC!ID = TxtSerie
       RecPC!Operatore = TxtOperatore
       RecPC!Ufficio = CmbUfficio
       RecPC!OpOrch = TxtOpOrch
       RecPC!Vis = TxtVis
       RecPC!Idrete = TxtIdRete
       RecPC!Tipo = TxtTipo
       RecPC!SysOp = TxtSysOp
       RecPC!Piattaforma = TxtPiattaforma
       RecPC!Oemmodhardware = RecPC!Oemmodhardware
       RecPC!TipoCpu = TxtTipoCPU
       RecPC!Monitor = TxtMonitor
       RecPC!mhzcpu = Val(TxtMhzCpu)               'numerico
       RecPC!mbram = Val(TxtMbram)                   'numerico
       RecPC!gbhd = Val(TxtGbhd)                        'numeroco
       RecPC!hdfree = Val(TxtHDFree)                   'numerico
      RecPC.Update
mi dice:  " Il campo Tabpc.op0ch  (che è il campo in cui vado a scrivere)
non può contenere una stringa di lunghezza zero."
In database simili me lo aveva accettato in precedenza.
Qualcuno pò suggerirmi idee ?
   Grazie Indriano

non può contenere una stringa di lunghezza zero."
Evidentemente esiste un campo op0ch che e' configurato per ricevere
almeno un valore.
I casi sono due:
1. lo impostate affinche' accetti le stringhe nulle;
oppure
2. definite un valore predefinito da inserire.
-- 
ciao,
hal

 hal
GRAZIE  HAL  !    ERA L'IPOTESI  1  : HA FUNZIONATO !!!!  AVEVO PORTATO IL
SORGENTE
A CASA E FUNZIA.
SE QUALCHE PURISTA DICE CHE NON DEVO URLARE  PERCHE' HO MESSO IL  MAIUSCOLO
MI SCUSO, MA ORA HO IL POMERIGGIO DAVANTI E VADO A SPASSO E NON HO VOGLIA DI
RISCRIVERE.   CIAO
Ciao anche a Fabrizio cui chiedo Msn ?
Ciao   da Indriano

Newsgroup: it.comp.lang.visual-basic
Titolo: Printer (3)

Ho un problema, già sottopostovi, con la stampa tramite l'oggetto Printer.
Ebbene avendo un recordset (già appurato che non sia vuoto, tant'è che ho
visualizzato tramite Msgbox il contenute del primo record prima di
richiamare Printer.Print) utilizzando una delle seguenti istruzioni:
Printer.Print rst("cognome")
Printer.Print rst.Fields("cognome").value
Printer.Print rst!cognome
non mi stampa nulla.
Se però assegno il valore di tale campo ad una variabile e faccio
Printer.Print variabile è tutto ok.
Com'è possibile?
Che cosa sbaglio?
Grazie.

 ha scritto nel messaggio
news:3bdfb665$1...@multidominio.mercurio.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiungere controlli a runtime ed eventi

come posso aggiungere un controllo, magari custom, a runtime e gestirne
eventuali eventi?
grazie

 eventuali eventi?
Private WithEvents cmdNewCommand As VB.CommandButton
Private Sub Form_Load()
    Set cmdNewCommand = Me.Controls.Add("VB.CommandButton",
"cmd_NewCommand")
    With cmdNewCommand
        .Caption = "Nuovo Pulsante"
        .Move 100, 100
        .Visible = True
    End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set cmdNewCommand = Nothing
    Me.Controls.Remove "cmd_NewCommand"
End Sub
Private Sub cmdNewCommand_Click()
    MsgBox "Ciao Mondo!", vbInformation
End Sub
tutto questo se non vuoi usare una matrice di controlli utilizzando
l'istruzione Load
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] elenco task

In passato molti hanno chiesto come nascondere un'applicazione all'elenco
dei task ottenibile attraverso ctrl-alt-canc; a quanto ricordo tutte le
soluzioni si basavano su api più o meno complicate. Mi sono accorto però che
c'è la proprietà app.taskvisible che, se impostata a false, rende invisibile
l'applicazione: su win2000 pare funzioni perfettamente.
Se qualcuno l'aveva già fatto notare, scusate (ma repetita iuvant)

 inizialmente non č visibile, dopo che premo il pulsante č visibile
ho tolto l'istruzione dal load, inserito un cmd:
Private Sub Command2_Click()
    App.TaskVisible = Not App.TaskVisible
    Command2.Caption = App.TaskVisible
End Sub
in taskmanager sta sempre li'.
anche chiuso e riaperto taskman.
uguaglio.

 uguaglio.
Allora, ho creato un nuovo progetto e ci ho messo un pulsante, poi ho
copiato e incollato le due istruzioni; ho compilato, ho avviato e ho premuto
il pulsante varie volte guardando contemporaneamente l'elenco dei task: l'ho
visto magicamente scomparire e apparire nell'elenco. L'unica differenza è
che nel mio caso il pulsante si chiama command1: sarà questo il problema?
:))))
Misteri di windows...

 Misteri di windows...
:)
w2k ita sp1
lo sapevo io che e' meglio usare i prg in lor latino...

 problema?
Appare e scompare dalla lista delle applicazioni di task manager, ma
rimane sempre in vista nell'elenco dei processi.
Ciao.

 ha scritto nel messaggio
news:95ofml$2mf$1...@newsserver.cilea.it...

Allora ho fatto alcune prove su programmi compilati, in un caso come Task mi
appare il nome del Form, nell'altro caso come task mi appare il nome del
progetto. (WinMe+VB6)
Ciao VB

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo MSComm

Salve a tutti!
C'č qualcuno che mi puň spiegare come si fa a leggere dei dati inviati da un
apparecchio attraverso una porta seriale usando il controllo ActiveX MSComm?
Il mio programma si blocca quando il buffer di ricezione si riempie per la
prima volta. Come si fa a leggere i dati, inserirli in una variabile
stringa, azzerare il buffer, leggere la seconda tranche di dati, accodarla
alla prima e cosě via?
L'apparecchio che trasmette non accetta segnali di handshaking nč hard nč
soft.
Grazie in anticipo,
Roberto

Nell'evento OnComm intercetti i caratteri ricevuti e li aggiungi ad una
stringa globale che vai ad interpretare in seguito.
Se puoi interpretare i dati alla fine della trasmissione non ci sono
problemi, se devi interpretarli in tempo reale ti fai la routine che
controlla il contenuto della stringa buffer richiamata da un timer e che
durante l'interpretazione richiama la funzione doevents per permettere
all'evento OnComm di viaggiare senza problemi.
Global Buffer As String
Sub MSComm1_OnComm()
  If MSComm1.CommEvent = comEvReceive Then Buffer = Buffer & MSComm1.Input
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Come connettersi e disconnettersi in Vb6

Ciao a tutti,
per provare come funziona ho utilizzato il Microsoft Internet Control
per fare una semplice applicazione che entri e stampi una pagina di un
sito ogni ora.
Vorrei sapere come posso automaticamente connettermi e in seguito
disconnettermi in internet utilizzando un collegamento esistente.
Ho data un'occhiata a controllo Microsoft internet transfer control,
ma non c'ò capito molto.
Grazie 



Dai un'occhiata sul mio sito o sul Sito Comune
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: Componente TrueGrid con Visual Basic 4 (16Bit)

Utilizzo il componente TrueGrid con VisualBasic 4.0, ma ho il seguente
problema:
- Quando i record superano la capienza della prima scheramata, se non muovo
fino alla fine la VerToolBar, il TrueGrid si comporta come se fosse vuoto.
Ho provato a mettere i comandi per farlo andare alla fine del record, ma poi
mi sparisce la VertToolBar.
Se cancello un Record, poi devo fare la stessa cosa, muovere la toolbar fino
alla fine.
Se conoscete come risolvere il problema o come si muove la toolbar??
Grazie Ciao

 wrote in message
8j0090$pch$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Suoni per beeper

Ho scritto un'applicazione per gestire gli accessi in una palestra e mi
trovo a dover associare dei suoni ad alcuni eventi (tessera ok, tessera
scaduta, certificato medico scaduto ... ecc...) su una macchina sprovvista
di scheda audio.
Qualcuno sa indicarmi come fare per riprodurre suoni (non, ovviamente, il
singolo triste beep) utilizzando il solo altoparlante di sistema (beeper o
cicalino).
E' possibile utilizzare alcuni formati audio o ... ?
Grazie
Marco


C'è la libreria WinBeep (gratuita) che ti permette di
far fare Beep al PC.
Puoi anche specificare la frequenza e la durata del suono.
In questo modo, avendo la tabella frequenze-note puoi
fargli fare anche una musichetta.
Ciao
Sir Jo

 C'č la libreria WinBeep (gratuita) che ti permette di

Newsgroup: it.comp.lang.visual-basic
Titolo: Software di stampa per tipografia

Cerco di essere più preciso ... dovendo realizzare un software
che produca un output pronto per la tipografia ...
oltre a tanta pazienza c'è un qualche strumento mezzo pronto
per non spennare il cliente chiedendogli una barca di soldi per
realizzare un modulo di sana pianta?
Ciao
Andrea


Stampa su file con un driver Postscript (possibilmente quello
originale Adobe) in formato EPS. Qualunque tipografia lo accetta,
se non è rimasta ferma almeno al 1980. Qualcuno _potrebbe_
chiedere il PDF, ma non è necessario, anzi, e lo dovrebbero
sapere.
Per altre info, sai dove trovarmi :-).
Bye, G.

Quindi stampo e basta ... realizzo un tool di posizionamento
e poi dň in pasto ad una stampante installata ... uhmm suona
facile da fare (la fase di stampa) non quella del posizionamento
logico secondo lo spazio libero ....
Piů che altro per le variabili ... cioč poter dire in anticipo o anche
a mezza via dove mettere il banner o il modulo pubblicitario.
Con che criterio farlo apparire in una data pagina, perchč comunque
il rendering del layout grafico se lo dovrebbe fare tutte le volte.
Ciao
Andrea


Senza qualche info in piů su quello che devi fare, non so che dirti.
Fammi un colpo di telefono, magari, o se passi per quel caffč...
scassa le pelotas anche a Gigio :-).
Bye, G.

 Fammi un colpo di telefono, magari, o se passi per quel caffè...


Newsgroup: it.comp.lang.visual-basic
Titolo: eventi su command

ciao
è possibile disabilitare l'evento click sul controllo button senza
impostare la proprietà enabled a false?
grazie

 ha scritto nel messaggio
news:2oddquk7g9ou77vit...@4ax.com...

private sub command1_click ()
    if Condizione_in_cui_non_devo_fare_nulla then
        exit sub
    end if
    'altro codice
end sub
Salutoni
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: Operazioni Pianificate

Salve a tutti,
in VB6 ho fatto un programma di back-up per la mia azienda.
Nelle opzioni che uno può scegliere, vorrei che ci fosse anche un discorso
di pianificazione ovvero:
scegli te quando,come, a che ora, e quante volte deve essere lanciato il
programma di back-up.
In base alla scelta dell'utente, dovrei creare un'operazione pianificata che
esegua il programma nei termini che ha scelto lui.
Quindi la richiesta è:
come faccio da VB6 a gestire le operazioni pianificate (creare, modificare,
rimuovere) ??
I sistemi dove verrà eseguito questo programma sono due: Windows 2000 Server
e Windows XP.
Grazie a chi mi da una mano.
Nuanda®

 modificare, rimuovere) ??
http://www.mentalis.org/vbexamples/vbexample.php?vbexample=SCHEDULEJOB
Ciao
Alberto
--
"Non mi sembra più granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
còsta chì l'è piò granda, gnuranta."
Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda banale...

Sapete cos'č la funzione di VB che utilizza le lettere maiuscole ?
Leggo da manuale (gary cornell):"..tale funz.serve per trovare gli errori di
battitura nei nomi di
variabili.Ad es.fare cosě: modificare  una delle ricorrenze di tale
var.,spostarsi di 1 riga,e
vedere se la ricorrenza viene modificata da VB:se non viene modif. c'č un
errore di
battitura,si corregga tale err.,poi si modifichi nuovam. il nome della
var.,cosě
automatic.cambiano tutte le ricorrenze della variabile".
grazie e ciao.

 grazie e ciao.
Si riferisce esattamente a quello che dice.
Tranne che "funz." va intesa come "funzionalità" e non "funzione".
Quando dichiari una var VB si ricorda le maiuscole e le minuscole del nome,
così quando la usi nel codice e poi cambi riga VB la "corregge"
automaticamente.
Se VB non la corregge significa che non la conosce e tu ti accorgi subito
che c'è qualcosa che non va.
Capito?
Ciao

 Capito?
Adesso si!
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Property ConnectionString in ADO

Ho una tabella fatta in access97 e vorrei visualizzarla in una mia
applicazione,
scritta in Visual Basic 6.
Vorrei visualizzare i dati in un componente DataGrid;
La Property Datasource del componente la connetto ad un oggetto ADO
(Microsoft ADO Data Contorl 6.0)
con un comando Set (Set DataGrid1.DataSource = Adodc1);
il mio problema č la Property ConnectionString di quest' ultimo;
oltre al nome del file come la devo inizializzare ? Qualcuno puo' magari
darmi un pezzo di codice per vedere come si fa ??
Grazie a tutti...
--
Stefano
ss...@tiscalinet.it
ICQ# 49286194

 Stefano
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it

Vedi se ti puo' aiutare questa funzioncina ...
gsDBName e' una var. contenente il nome (ed il path) del db
Access97.
Se ti serve una mano fischia
' *********************************
' Connessione al database
Sub Connetti()
Dim sConn As String
sConn = "DBQ=" & gsDBName & ";Driver={Microsoft Access Driver
(*.mdb)};" & _
  "DriverId=281;FIL=MS
Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;" & _
  "SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
Set cn = New ADODB.Connection
On Error GoTo error_conn
With cn
    .ConnectionString = sConn
    .ConnectionTimeout = 0
    .Open
End With
On Error GoTo 0
Exit Sub
error_conn:
MsgBox "Impossibile connettersi al Database!", vbCritical + vbOKOnly,
"Esecuzione Terminata"
Set cn = Nothing
End
End Sub
' *********************************
-------------------------------------
Non mi stancherň mai di imparare...
Grazie a tutti!
dario.m...@SONOlibero.it 
(ovviamente da correggere)

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Open GL

Se qualcuno conosce le Open GL in visual basic sarei grato se mi fornisse un
semplice esempio di come si usano i tesselationobject perchè non riesco a
disegnare poligoni non convessi.
Mi sembra di fare tutto giusto ma qualcosa non funziona.
Grazie.

 wrote in message
8eee3a$gaj$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DLL che ritorna un puntatore.

Ciao a tutti!
Uso una funzione di libreria che mi ritorna il puntatore ad una variabile.
Come posso leggere il contenuto della variabile conoscendone solo
l'indirizzo?
Grazie e ciao!
---
Esteban
Hosted by 
www.seber.it


Dipende dal tipo...
Il modo piu' semplice e' definire una variabile dello stesso tipo e usare la
CopyMemory.
Ciaotutti,
*


Inciso: in teoria potresti ancheprovare a definire la funzione As tipo, ma i
risultati non sono garantiti.
Ciaotutti,
*

 ha scritto nel messaggio
news:Adab8.330$eD3....@twister1.libero.it...



Una volta qualcuno mi aveva postato un sistema per ottenere variabili anche
di tipo dinamico come le stringhe, di cui non si conosce la lunghezza.
Ti viene in mente niente?
Mi sembra centrassere delle funzioni OLE.
Ciao

 stringhe, di cui non si conosce la lunghezza.
Mi sento fischiare le orecchie.
http://groups.google.com/groups?as_umsgid=CJk97.2234%24y_3.294483@ne
ws.infostrada.it
&as_scoring=d&hl=it
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 
24y_3....@news.infostrada.it
&as_scoring=d&hl=it
Woa!
Sei Magg'! (di Segrate?) :)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] API per sapere DSN installati

Chi conosce qualche API per sapere quali e quanti DSN sono installati sul
PC?
Rispondete PLEASE!!!
mar...@tin.it

SQLDataSources esposta da ODBC32.DLL
consulta ODBCAPI.HLP, oppure CD di MSDN

Newsgroup: it.comp.lang.visual-basic
Titolo: ?Excel cambiare il formato di una colonna

E' possibile  daVB cambiare il formato di una colonna di un foglio excel da
numerico a testo ?
(cosi come da xl si fa utilizzando il tasto destro sull HDR e si  sceglie il
formato desiderato per le celle)

Cesare Rizzi ha scritto:

Registri la macro in xl e copi in vb il codice generato in automatico,
aggiustando, ovviamente, i le variabili relative agli oggetti usati.
-- 
ciao, hal

 ha scritto nel messaggio
news:a1sr4f$t36gh$1...@ID-56381.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Use monthview as a filter for a dbgrid

Hello,
I'm working on a project and i've an problem with filtering. I'm using
the 6.0 version of visual basic. I shall explain it. I've a dbgrid
connected with a data and the data is connected with an access
database. In the tabel is a date. So i wan too select a date in the
monthview control and then a filter automaticly the dggrid database.
Thnx for reading my problem and please help me out with this.
Kind regards,
Stefan



Newsgroup: it.comp.lang.visual-basic
Titolo: ocr e visual basic...

salve a tutti...
vorrei realizzare un programma che legga dei dati da dei moduli cartacei 
tutti uguali e prestabiliti e che effettui operazioni di ricerca su di 
un databasa.... l'unico problema è acquisire i documenti.... esiste 
qualche soluzione ocx da inserire nei propri progetti facile da usare e 
che non costi una fortuna?
grazie
Alex77

 ha scritto nel messaggio
news:4MNic.101074$hc5.4...@news3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ocx e dll.

Ho installato su una nuova macchina Win95+plus+VB5+SP3
Ho riregistrato a mano tutti gli ocx che mi davano l'errore "Non sono
disponibili i diritti.....",
Per comctl32.ocx non so più che fare: quale versione della comctl32.dll si
aspetta?
I dati sono questi:
comctl32.dll
ver:4.70   data: 15/4/97  Lingua:ita  Dimensione: 371 kb
comctl32.ocx
ver:5.01.4319  Data: 19/7/97  Lingua Ing(Usa)   Dimensione: 591 kb
Inutile dire che in fase di progettazione non c'è verso di utilizzare alcun
controllo relativo.
Ciao Marco.
-- 
Remove xxx from E-mail.

Mi auto_rispondo: basta eseguire vbctrls.reg (presente sul cd di vb5) e
tutto si sistema.

Newsgroup: it.comp.lang.visual-basic
Titolo: Help!!! Datareport

Con Datareport come faccio se voglio stampare solo alcuni record indicati
dall'utente?
Mi spiego meglio:
Ho una tabella con 10 record, voglio che l'utente sia in grado di decidere
quale record stampare. Esempio tutti i record che contengono nel campo Nome
il dato PAOLO (il "filtro" PAOLO lo definisce l'utente).
In poche parole non riesco a modificare la formula sql del data environment.
Se ci potessi inserire una variabile il gioco sarebbe fatto, ma non so come.
Ho giá posto il problema, non so se la risposta é troppo facile, se sono io
che non sono in grado di spiegarmi (puó essere) oppure (strano) se  nessuno
é in grado di fornirmi una risposta.
Grazie per l'eventuale risposta.

.....


Per prima cosa ti ringrazio per la risposta poi premetto che sono alle prime
armi con VB, quindi molte cose elementari mi sfuggono.
Ho provato il tuo suggerimento, risultato:
ok, se nel campo VALORE della scheda parametri (proprietá Command1 del mio
dataenvironment) inserisco un dato poi il report collegato a tale
dataenvironment mi  visualizza solo il record che soddisfa il dato da me
inserito.
Il problema é come faccio a far inserire tale dato all'utente.
La tua seconda indicazione:
"Per la chiamata usi la seguente istruzione: dataenvironment.qry bPar1"
non riesco a farla funzionare dopo la scritta "dataenvironment." non riesco
ad inserire "qry bPar1" non riesco ad inserire il valore del mio parametro
che si chiama "param1".
Dovrei riuscire a fare questo: (occhio agli strafalcioni in VB)
dataEnvironment.Param1.Valore =  Ciccio
(ciccio é la mia variabile che poi collego ad un campo di testo di una form)
Abbi pazienza!!!!!!!! Grazie se mi rispondi

Mi sono spiegato male,
il presente comando era un esempio (dataenvironment.qry bPar1)
a dataenvironment devi sostituire il nome del tuo DE
qry invece è il nome della tua query  dentro a DE
bPar1 è il tuo parametro che potresti prelevare da una textbox (o altro)
con textbox.text
Riassumendo la riga da usare dovrebbe essere:
tuoDE.tuaQuery textbox1.text
tuaQuery ovviamente deve contenere un campo con ? per attivare la
richiesta di un parametro.
	Lore.


che dire GRAZIE MILLE!!!!
Funziona, ero scettico finche non l'ho provato, grazie

Grazie ancora
ancora questa chicca e poi non rompo piú
ora riesco a stampare solo il record che volevo (e mi sembrá giá natale!!!)
piccolo problemino, quando l'utente inserisce un altro parametro nella
textbox il programma si blocca, mi dice che l'oggetto (suppongo il
dataenvironment) é giá aperto. Mi ci vuole quindi un comando furbo per
fargli chiudere sto oggetto dopo che mi ha visualizzato l'anteprima di
stampa.
grazie ancora

Prova:
  If DataEnvironment2.Connection1.State <> adStateClosed Then
    DataEnvironment2.Connection1.Close
  End If
 
	Lore.


   End If
Ancora grazie
io ho inserito nel datareport queste righe e mi funziona, problema risolto
quindi
Private Sub DataReport_Terminate()
DataEnvironment2.Connection1.Close
DataEnvironment2.Connection1.Open
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Copia e incolla

Ciao,
lavoro con VB 2008 Express Edition e ho creato una form per un
calcolo.
Il risultato dei calcoli viene visualizzato in 4 textbox che vorrei
copiare negli appunti per poi incollare in Excel o altri programmi. Ho
utilizzato questo codice su pulsante_Click :
Clipboard.SetText(LSS.Text & " " & LCS.Text & "  " & LCI.Text & "  " &
LSI.Text) '*
dove LSS, LCS, LCI ed LSI sono i nomi delle txtbox; il comando copia
funziona ma quando incollo, i valori mi compaiono su una stessa riga
come se fosse una sola stringa (22.1 12.8 14.6 21.3)
In Excel vedo i 4 valori nella stessa cella per esmpio.
Vorrei che quando incollo in Excel ci fosse un valore per ogni cella,
LSS in A1, LCS in B1 ecc... oppure anche andare a capo LSS in A1, LCS
in A2 ecc...
come modifico il codice?
grazie
Marco


Se li vuoi in 4 celle verticali, devono essere separati da un ritorno
a capo, se invece orizzontali da una tabulazione, quindi:
Dim vert As String
Dim oriz As String
Const TEMPLATE As String = "{1}{0}{2}{0}{3}{0}{4}"
vert = String.Format(TEMPLATE, ControlChars.CrLf, _
                     LSS.Text, _
                     LCS.Text, _
                     LCI.Text, _
                     LSI.Text)
oriz = String.Format(TEMPLATE, ControlChars.Tab, _
                     LSS.Text, _
                     LCS.Text, _
                     LCI.Text, _
                     LSI.Text)
Clipboard.SetText(<una delle due stringhe>)
Chiaramente puoi usare anche il solito '&' al posto di string.format,
però in .NET è consigliabile evitare tutte queste operazioni di
concatenazione quando possibile, perchè vengono generati un sacco di
oggetti temporanei in memoria (le stringhe sono reference type); in
genere puoi usare appunto il metodo Format o la classe StringBuilder
che offrono minor consumo di risorse e anche prestazioni migliori.

 - Mostra testo citato -
Ok funziona alla perfezione ma potrei migliorare una cosa...
Le TxtBox dei risultati sono affiancate da etichette, LSS >> Label4
ecc...
vorrei modificare i Vert e Oriz così:
In Vert metterei in una cella il valore e nella cella a fianco (prima
o dopo non so ancora) il valore della label
In Oriz lo stesso ma le label le metterei sopra o sotto
Grazie ancora
Marco

 - Mostra testo citato -
Scusa, non ho nemmeno provato a ragionare...
Il verticale è una stupidata e l' ho già fatto, per mettere invece le
label sopra o sotto mi sa che devo vedere il tuo consiglio invece..
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: StretchBlt

Ciao a tutti
Ho terminato una funzione sul mio prog che funge
perfettamente. Poi mi sono accorto che non va su
W98, ma solo su W2000 e XP.
Per prova, ho ridotto le funzioni principali in un programmino
di prova che sottopongo:
Option Explicit
Private Declare Function StretchBlt Lib "gdi32" _
      (ByVal hdc As Long, _
       ByVal x As Long, _
       ByVal y As Long, _
       ByVal nWidth As Long, _
       ByVal nHeight As Long, _
       ByVal hSrcDC As Long, _
       ByVal xSrc As Long, _
       ByVal ySrc As Long, _
       ByVal nSrcWidth As Long, _
       ByVal nSrcHeight As Long, _
       ByVal dwRop As Long) As Long
Private Sub Form_Load()
  Set Picture1 = LoadPicture(App.Path & "\Img.bmp")
  StretchBlt Picture2.hdc, _
             0, _
             0, _
             Picture2.Width, _
             Picture2.Height, _
             Picture1.hdc, _
             0, _
             0, _
             Picture1.Width, _
             Picture1.Height, _
             &HCC0020
End Sub
Il form ha due PictureBox, Picture 1 e Picture2, entrambi
con proprietą Autoredraw a True.
Carico un'immagine bmp in una e me la ritrovo ridimensionata
nell'altra. Perchč non funge su W98 ? Esiste una StretchBlt
in una lib differente per W98 ?
Qualche dritta ?
Grazie ciao
Bepi

        ByVal dwRop As Long) As Long
Effettivamente se le due picturebox hanno dimensioni diverse non funziona. Il
valore restituito da StretchBlt è 0 (failed) ma GetLastError vale comunque 0.
Vedi anche qui:
http://support.microsoft.com/default.aspx?scid=kb;en-us;269585
Nelle mie prove fallisce anche con dimensioni solo leggermente diverse...
Se avessi ulteriore tempo proverei l'API StretchDIBits.
Come ultima spiaggia puoi sempre usare una Image con la proprietà
stretch=True...
Bye
Raf

 stretch=True...
Il controllo Image non ha hDC, come la passo a StretchBlt ? Nel mio appl.
ho in effetti un array di picbox, poi copio e ridimensiono quella opportuna.
(Mi serve per un'anteprima di stampa nel prog)
Porcaloca, avevo finito tutto alla grande, ora mi trovo nella popo' fino al
collo....
Aiutooooo
Ciao
Bepi

 (Mi serve per un'anteprima di stampa nel prog)
In passato ho realizzato una print preview per VB3 (16 bit) (e usavo proprio
l'API StretchDIBits che ti avevo suggerito), seguendo questo articolo:
http://support.microsoft.com/default.aspx?scid=KB;en-us;q113333
Secondo me funziona anche in VB6, con gli opportuni accorgimenti.
Bye
Raf

 collo....
Potresti provare a lavorare di StretchBlt() su un hDC "temporaneo" creato
con la CreateCompatibleDC() e poi da questo travasi sulla PictureBox con
BitBlt().
Occhio alle ReleaseDC() necessarie.
Ciao
--
Reporting tool: 
http://www.neodatatype.net