Oppure

Loading
21/08/08 20:47
Alceus
Option Explicit
Dim Cliccato As Boolean
Dim PosLef, PosTop, X1, Y1 As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cliccato = True
X1 = X
Y1 = Y
PosLef = Me.Left
PosTop = Me.Top
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Cliccato = True And Button = 1 Then
PosLef = PosLef + (X - X1)
PosTop = PosTop + (Y - Y1)
Me.Left = PosLef
Me.Top = PosTop
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cliccato = False
End Sub



:k:
Ultima modifica effettuata da Alceus 21/08/08 20:49
aaa
22/08/08 19:42
Grazie di tutto, ma un altro sforzo lo potete fare?

Le uniche cose che mi servirebbero sono:
-una guida sull (MMcontrol)

-come cambiare l'immaggine dentro al form tramite i 3 radio btn nelle opzioni

-come salire e scendere il volume, e attivare il mute.

Dimenticavo...
Si può fare che in un combobox vengano visualizzate le lettere SOLO dei lettori e masterizzatori cd-dvd presenti sul pc e selezionare la fonte...

vi posto i source:
23/08/08 11:11
GrG
1) cerca su google guide su MMControl

2) Ti ho risposto già a un altro topic simile fatto da te, dove kiedevi la stessa cosa. (usa la funzione LoadPicture())

3) per alzare e abbassare il volume devi informarti sull'MMControl
aaa