VB Tips - Trucchi Visual Basic 2

Problema

Soluzione

Creare un Form 'Always on top'.

Inserisci un modulo1 nel progetto e copia questo codice nel modulo:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1

Public Const HWND_NOTOPMOST = -2

Public Const SWP_NOACTIVATE = &H10

Public Const SWP_NOMOVE = &H2

Public Const SWP_NOSIZE = &H1

e questo nell'evento Form_Load():

Dim lRetVal As Long

lRetVal = SetWindowPos(form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE)

Aprire un' altra applicazione da VB

Hai bisogno di un "Command1" e questo codice:

Private Sub Command1_Click()

Shell "path of program*"

End Sub

*path of program è il percorso del programma.

esempio:"C:\windows\calc.exe"

Aprire e Chiudere il Lettore CD.

Metti "Command1" e "Command2" , inserisci questo codice:

Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

retvalue = mciSendString("set CDAudio door open", _ returnstring, 127, 0)

End Sub

Private Sub Command2_Click()

retvalue = mciSendString("set CDAudio door closed", _ returnstring, 127, 0)

End Sub

Come faccio a Visualizzare un Messaggio all'avvio del programma?

Nell'evento FORM_LOAD() inserisci questo codice:

Msgbox "Quello che vuoi dire"

end sub

Come si fa ad allineare il testo a destra (per esempio i numeri) in una textbox? (la proprietà alignment =2 non funziona)

Oltre a impostare l'allineamento a destra, devi anche settare la proprieta' MultiLine a True e disabilitare la pressione del tasto INVIO con un bel

    If KeyAscii = vbKeyReturn then KeyAscii = 0

nell'evento Keypress.

Come posso trovare una stringa in una combo-box in un tempo ragionevole?

Puoi usare questa funzione dele API:

index = SendMessage(hWnd, CB_FINDSTRING, (WPARAM) indexStart, (LPARAM) (LPCSTR) lpszFind);

indexStart:

elemento da cui iniziare la ricerca (-1 per iniziare dall'inizio)

lpszFind:

stringa da ricercare

CB_FINDSTRING

si ferma alla prima occorrenza, anche se la stringa specificata è solo la parte iniziale di quella trovata.

CB_FINDSTRINGEXACT

ricerca la stringa specificata per intero.

index:

l'indice dell'elemento trovato o CB_ERR in caso la stringa non sia trovata.

<< Pagina Precedente

Pagina Successiva >>