Coduri sursa php & mysql Visual Basic & altele - Daniel Stefan

Coduri sursa php & mysql Visual Basic & altele - Daniel Stefan

03.iunie, 2008

visual basic
drag & drop


Private Sub imgMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Call DragForm(Me)
End If
End Sub

asta se pune in form, in modul se pune ce este mai jos:
Public Sub DragForm(frm As Form)
Call ReleaseCapture
Call SendMessage(frm.hwnd, &HA1, 2, 0)
End Sub


http://www.php.net/manual/ro/manual.php - cursuri / manual(E) php in limba romana


Coduri
________________________________

Pentru a schimba cursorul / mouse-ul

mai jos este un cod in visual basic tot pentru drag & drop

<br><br>________________________________________<br><br>"iframe" HTML<br><br><br><br><br><iframe marginwidth="0" marginheight="0" src="http://google.com" frameborder="0" width="728" scrolling="no" height="90"></iframe><br><br><br><strong>Visual Baisc 6.0 shell</strong><br><br>c: est.exeShell "c:\test.exe", vbNormalFocus<br>regsvr32, notepad, and explorer<br><br>Shell "notepad", vbNormalFocus<br><br><br><br><br><br>Shell "explorer", vbNormalFocus<br><br><br>Shell "notepad C:\test.txt", vbNormalFocus<br><br><br>Shell "notepad ""C:\dir with spaces\test.txt""", vbNormalFocus<br><br>notepad " C:\dir with spaces\test.txt"<br><br><br>Constant<br>Value<br>Description<br>vbHide<br>0<br>Window is hidden and focus is passed to the hidden window.<br>vbNormalFocus<br>1<br>Window has focus and is restored to its original size and position.<br>vbMinimizedFocus<br>2<br>Window is displayed as an icon with focus.<br>vbMaximizedFocus<br>3<br>Window is maximized with focus.<br>vbNormalNoFocus<br>4<br>Window is restored to its most recent size and position. The currently active window remains active.<br>vbMinimizedNoFocus<br>6<br>Window is displayed as an icon. The currently active window remains active.<br>The shell function also returns a TaskID (double), that you can use with the AppActivate statement:<br>Private dblNotePadID As Double'// runs wordPrivate Sub cmdRunNotePad_Click() dblNotePadID = Shell("notepad", vbNormalFocus")End Sub'// activates word at a later stagePrivate Sub cmdActivateNotePad_Click() AppActivate dblNotePadIDEnd Sub<br>Visual Basic - pentru drag and drop - codul este luat de pe pagina http://forum.chip.ro/showthread.php?t=14052<br>--------------------------------------<br>In modul<br>Private psnFrmX As Single<br>Private psnFrmY As Single<br>--------------------------------------<br>Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>If Button And vbLeftButton Then<br>psnFrmX = X<br>psnFrmY = Y<br>MousePointer = vbSizeAll<br>End If<br>End Sub<br>Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>If MousePointer = vbSizeAll Then<br>Left = Left + X - psnFrmX<br>Top = Top + Y - psnFrmY<br>End If<br>End Sub<br>Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>If MousePointer = vbSizeAll Then<br>MousePointer = vbNormal<br>End If<br>End Sub<br>--------------------------------------


http://www.dynamicdrive.com/dynamicindex11/customcursor.htm