mizar1 (Normal User)
Pro
Messaggi: 72
Iscritto: 09/11/2009
|
Questo topic è stato chiuso dal moderatore salve
ho due problemi e non riesco ad andare avanti nel mio programma vb6
1)ho inserito un controllo togglebutton(quello che rimane premuto) ma non c'e' la proprieta checked (neppure state) per verificare lo stato del pulsante
2) ho creato delle trackbar da codice pero' non riesco a creare l'evento che si generi quando quella barra viene modificata
3) riesco a formattare i numeri decimali con format (2 cifre decimali) ma quelle che finiscono con lo 0 non me le fa vedere (1.10 mi restituisce 1.1) come posso fare?
grazie.
Ultima modifica effettuata da mizar1 il 09/11/2009 alle 18:10 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
per le domande 1 e 2, devi controllare su msdn (sito della microsoft) che ti spiega come funzionano i componenti che nomini e le loro proprietà, in questo modo saprai vedere il loro "stato" (ti darei i link, ma purtroppo oggi ho da fare cose urgenti e non posso perdere troppo tempo)
per la domanda 3 come usi format? devi mettere ad esempio:
dim x as integer
x = 0.1
x = format(x,"0.00")
|
|
mizar1 (Normal User)
Pro
Messaggi: 72
Iscritto: 09/11/2009
|
Postato originariamente da GrG:
per le domande 1 e 2, devi controllare su msdn (sito della microsoft) che ti spiega come funzionano i componenti che nomini e le loro proprietà, in questo modo saprai vedere il loro "stato" (ti darei i link, ma purtroppo oggi ho da fare cose urgenti e non posso perdere troppo tempo)
per la domanda 3 come usi format? devi mettere ad esempio:
dim x as integer
x = 0.1
x = format(x,"0.00")
|
ecco il mio format che va a popolare una combo box
w = w + 0.5
w = Format(w, "0.00")
vengono generati tanti numeri e poi formattati ma ad esempio mi crea
1.11
1.12
..
..
..
1.19
1.2
1.21
per il problema 2 gli eventi li conosco solo che
non riesco a crearli da codice non esistendo gli oggetti fino a che non vengono creati da codice Ultima modifica effettuata da mizar1 il 09/11/2009 alle 19:23 |
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
Con
w = w + 0.5
w = Format(w, "0.00")
dai la formattazione ad un numero decimale che non rappresenterà mai gli ultimi zeri.
La formattazione la devi dare alla label o al textbox o alla riga del combo.
label = Format(w, "0.00")
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da mizar1:
per il problema 2 gli eventi li conosco solo che
non riesco a crearli da codice non esistendo gli oggetti fino a che non vengono creati da codice |
non ti ho capito spiegati meglio...
Postato originariamente da Alfonso:
La formattazione la devi dare alla label o al textbox o alla riga del combo.
label = Format(w, "0.00")
|
Hai ragione, nell'esempio di codice che ho scritto ho fatto l'errore di dare il format a una variabile numerica e in più x è integer invece doveva essere double per dargli un valore decimale (0.1) ...
Però Mizar1 devi mostrare come usi format, nella combo il numero viene formattato correttamente esempio (stavolta sto + attento :P):
Dim x As Double
x = 1.5
Combo1.AddItem Format(x, "0.00") |
|
mizar1 (Normal User)
Pro
Messaggi: 72
Iscritto: 09/11/2009
|
perfetto!!!!!
grazie ecco dove era l'errore
i decimali sono risolti
punto 2 mi spiego meglio
ho una form vuota ,da codice creo una hscrollbar e una label
adesso se io le avessi gia sulla form scriverei l'evento che quando lo hbar_scroll mi da il valore relativo sulla label
ma non avendole sulla form come devo fare per creare l'evento?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da mizar1:
ma non avendole sulla form come devo fare per creare l'evento?
|
Creare l'evento? Non puoi se non esiste l'oggetto, al massimo puoi creare l'oggetto in questo modo:
Dim ctrl As Control
Set ctrl = Me.Controls.Add("VB.hscrollbar", "hscrollbar")
With ctrl
.Visible = True
End With
e poi gestirne l'evento... |
|
mizar1 (Normal User)
Pro
Messaggi: 72
Iscritto: 09/11/2009
|
Postato originariamente da GrG:
Postato originariamente da mizar1:
ma non avendole sulla form come devo fare per creare l'evento?
|
Creare l'evento? Non puoi se non esiste l'oggetto, al massimo puoi creare l'oggetto in questo modo:
Dim ctrl As Control
Set ctrl = Me.Controls.Add("VB.hscrollbar", "hscrollbar")
With ctrl
.Visible = True
End With
e poi gestirne l'evento... |
si l'oggetto lo creo cosi' da codice tramite un ciclo che me ne crea 3,4 o5 a seconda del caso, ma poi?
come gestisco gli eventi sempre da codice?
Ultima modifica effettuata da mizar1 il 09/11/2009 alle 21:36 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
fammi un esempio pratico di ciò che vuoi realizzare...
|
|