Results 1 to 5 of 5

Thread: ...

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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
    !

  2. #2
    Get a Mac moridinbg's Avatar
    Join Date: Dec:2004
    Location: 0x00000000
    Posts: 4,211
    [sarcasm] 18 .[/sarcasm]
    Last edited by moridinbg; 19th November 2010 at 21:04.

  3. #3
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofi
    Posts: 4,965
    Quote Originally Posted by killvanrea View Post
    Image, :
    Image(0);Image(1);Image(2);Image(3);Imag e(4)
    borde style = 1
    !
    - ?
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  4. #4
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    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|

  5. #5
    Registered 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 Sub
    Last edited by killvanrea; 19th November 2010 at 22:44. Reason:

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |