Results 1 to 5 of 5
Thread: ...
Hybrid View
-
19th November 2010 20:16 #1Registered User
Join Date: Nov:2008
Location: Sofia, Mladost 3
Posts: 311
...
Image, :
Image(0);Image(1);Image(2);Image(3);Imag e(4)
borde style = 1
!
-
19th November 2010 20:45 #2
[sarcasm] 18 .[/sarcasm]
Last edited by moridinbg; 19th November 2010 at 21:04.
-
19th November 2010 21:01 #3
-
19th November 2010 21:03 #4
document.images e , .
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
19th November 2010 21:21 #5Registered User
Join Date: Nov:2008
Location: Sofia, Mladost 3
Posts: 311
:
Image2(0).BorderStyle = 1
Image2(1).BorderStyle = 1
Image2(2).BorderStyle = 1
Image2(3).BorderStyle = 1
.........................
Image2(190).BorderStyle = 1
.
. Image ( image). ( , Image) .
moridinbg
.
..: , :
Code:Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Image1(Index).Drag vbBeginDrag Image1(Index).Visible = False End If End Sub Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Image1(Index).Drag vbEndDrag End If End Sub Private Sub Image2_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) If TypeOf Source Is Image Then Image2(Index).Picture = Source.Picture End If End Sub '----------------- Private Sub Image2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Image2(Index).Drag vbBeginDrag End If End Sub Private Sub Image2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Image2(Index).Drag vbEndDrag End If End SubLast edited by killvanrea; 19th November 2010 at 22:44. Reason:




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in