 RICHIESTA DI FRANCESCO (8/1/2003)
|
Ho creato un programma che disegna in una picturebox con il comando:
Picture1.Line (X1, Y1)-(X, Y)
Quando un'altra finestra va a coprire la mia picturebox quello che ho disegnato si cancella. come posso impedire che ciò avvenga?
Grazie |
|
 RISPOSTA DEL PORTALE |
Ciao Francesco,
per evitare ciò devi impostare la proprietà autoredraw della PictureBox a True. |
|
|
RICHIESTA DI FABIO BENELLI (17/7/2003)
|
Ho un vecchio programma vb6 e vorrei riusarlo.
Non riesco nel mio intento in quanto lanciandolo mi dice che la funzione OpenDataBase non è definita.
Ma tale funzione, va definita? Non è già insita nelle funzioni di sistema?
Grazie |
|
RISPOSTA DEL PORTALE |
Caro Fabio,
la funzione a cui ti riferisci è contenuta nell'oggetto DAO pertanto se non ci sono riferimenti nel progetto alla Microsoft DAO 3.x object library la funzione non verrà rilevata dal programma in nessun altro posto e quindi ti riporterà l'errore di cui hai scritto. |
|
|
RICHIESTA DI NICOLA (14/7/2003)
|
| salve, vorrei sapere una cosa. sto creando un piccolo programma di scrittura e voglio far si che nella finestra di apri file vengano mostrati solo file con una determinata estensione (per esempio solo .txt)e voglio anche far si che i file di testo vengano salvati con una estensione da me scelta. Come posso fare? per le finestre apri e salva file utilizzo un controllo commondialog. se possibile vorrei avere una risposta semplice. ho appena cominciato con il vb. grazie in anticipo per la risposta. |
|
RISPOSTA DEL PORTALE |
Caro Nicola,
la proprietà da dover compilare per ottenere un filtro sulla visualizzazione dei files nella Common Dialog è "filter".
Tale proprietà prevede una serie di informazioni separate dal carattere "|" (pipe).
Le informazioni sono organizzate nel seguente modo:
"descrizione filtro1|*.tipi files filtro1|descrizione filtro2|*.tipi files filtro2".
Nel tuo caso il valore della proprietà filter potrà essere per esempio:
"Documenti di testo(*.txt)|*.txt"
Per quanto riguarda il salvataggio dei tuoi documenti con un'estensione specifica (quando non viene digitata esplicitamente nella dialog, dovrai utilizzare la proprietà default ext con particolare dettaglio a specificare solo l'estensione. Per esempio "txt". |
|
|
RICHIESTA DI ARNOLDO (7/1/2003)
|
| ciao sono Arnoldo ho la necessità di dover scrivere con visual basic in alcune celle di Excell e di dover creare dei nuovi fogli di lavoro! Come posso fare !grazie Ciao |
|
RISPOSTA DEL PORTALE |
L'esempio che ti riporto scrive nella cella A1 di un foglio generico di Excel:
dim xls as Object
dim wks as Object
set xls = CreateObject("excel.application")
set wks = xls.workbooks.add ' <-- Questo aggiunge un nuovo folgio di lavoro.
xls.range("A1").value = "Ciao mondo" ' <-- questo inserisce i dati in una cella specifica
xls.range("A2:C2").value = "Valore ripetuto" ' <-- Questo inserisce un valore identico nelle celle A2, B2, C2. |
|
|
RICHIESTA DI ALEX (9/3/2002)
|
Salve ragazzi,
come faccio a confrontare il contenuto di una ListView composta da otto colonne con un record composto da otto colonne?
Grazie. |
|
RISPOSTA DEL PORTALE |
Eccoti il codice Alex (supponendo l'utilizzo solo sulla prima riga della ListView):
Dim Diverso as Boolean
Dim I as Integer
Dim StrLVW as String
Dim StrRS as String
Diverso = False
For I =0 to ListView1.ColumnsHeader.Count - 1
If I = 0 then
StrLVW = ListView1.ListItem(1).text
else
StrLVW = ListView1.ListItem(1).subitems(1)
end if
strRS = rs(I) & "" ' Per evitare valori Nulli
if strRS <> strLVW then
diverso = True
exit for
end If
Next
If Diverso then
MsgBox "Le informazioni sono diverse"
else
MsgBox "Le informazioni coincidono"
End If |
|
|
RICHIESTA DI NICOLA (9/3/2002)
|
Vorrei popolare una listview con i campi di un recordset ad esempio:
dim db as database
dim rs as recordset
set db = databasename
set rs = select id , città , cap .....
Come posso inserire il recordset nella listview |
|
RISPOSTA DEL PORTALE |
Caro Nicola,
per fare ciò che hai richiesto devi digitare questo codice per il caricamento delle informazioni nella ListView:
dim itm as ListItem
do while not rs.eof
itm = listView1.listitems.add
itm.Text = rs!ID
itm.Subitems(1) = rs!Città
itm.Subitems(2) = rs!CAP
' ...
rs.moveNext
loop |
|
|
RICHIESTA DI ALBERTO (26/8/2002)
|
Per favore datemi un aiuto.....
Nel file di testo che ho salvato ci sono
5 parole in colonna esempio:
legno
ferro
oro
argento
rame.
Quando apro il file in input
dovrei salvare le 5 parole in 5 textbox,
come dovrei fare (senzausare database) grazie |
|
RISPOSTA DEL PORTALE |
Caro Alberto,
prova a fare riferimento al documento sulla gestione dei files nella sezione articoli del sito.
Con quell'articolo dovresti essere in grado di risolvere il problema che hai presentato. |
|
|
RICHIESTA DI RICHARD (26/8/2002)
|
cari amici di vbprogrammer
ho scritto un programma che riesce a leggere dalla seriale, ma vorrei ricevere in decimale, sul monitor del :per ora ricevo in codici scii :
non lo so se dal codici sotto che ho sbagliato, come posso fare? grazie e a presto
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text = Text2.Text & " " & (Hex(MSComm1.Input))
Case comEvSend
End Select
End Sub
|
|
RISPOSTA DEL PORTALE |
Caro richard,
la ricezione che fai tu è corretta,
l'unica cosa è modificare la riga di codice:
Text2.Text = Text2.Text & " " & (Hex(MSComm1.Input))
in
Text2.Text = Text2.Text & " " & (MSComm1.Input)
|
|
|
RICHIESTA DI GIANCARLO (22/8/2002)
|
| Salve avrei bisogno del Vs aiuto dovrei calcolare l'età di una persona nel formato gg/mm/aaa conoscendo la data di nascita e la data che voglio nel senso che sapendo ch una persona è nata il 10/10/2000 quanti gg/mm/aaa avrà nel 12/01/2005 Grazie |
|
RISPOSTA DEL PORTALE |
Caro Giancarlo,
anche se un po' in ritardo eccoti presentata la soluzione al tuo problema:
Dim m1 As Integer, m2 As Integer
Dim g1 As Integer, g2 As Integer
Dim a1 As Integer, a2 As Integer
Dim data1 As Date, data2 As Date
data1 = CDate("26/04/1977")
data2 = Date
g1 = Day(data1)
m1 = Month(data1)
a1 = Year(data1)
g2 = Day(data2)
m2 = Month(data2)
a2 = Year(data2)
m = m2 - m1
If m < 0 Then m = 12 - m
a = a2 - a1
m = m2 - m1
If m < 0 Then m = 12 - m
g = g2 - g1
If g < 0 Then m = m - 1
gf = 31
Do While Not IsDate(CDate(gf & "/" & m - 1 & "/" & a))
gf = gf - 1
Loop
g = g + gf
MsgBox g & "/" & m & "/" & a
|
|
|
RICHIESTA DI CERBERO (8/9/2002)
|
| dove posso downlodare gratis l'MSDN di visual basic 6? ciao e grazie |
|
RISPOSTA DEL PORTALE |
L'MSDN non è possibile downloadarlo gratuitamente, infatti esce in bundle con il Visual Studio o uno dei suoi componenti (compreso il Visual Basic 6.0) oppure acquistandolo a parte.
L'unico modo di consultarlo senza acquistarlo è accedendo al sito della microsoft al seguente indirizzo:
msdn.microsoft.com |
|
|
|
Avanti >>
|