Newsgroup: it.comp.lang.visual-basic
Titolo: Mi vergogno.....

dopo anni e anni di onorato servizio
alle dipendenze di vb6
mi accorgo che non so come spostare un frame col mouse......
che vergogna.....
ho provato a fare
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Button = 1 Then
    Frame1.Left = X
    Frame1.Top = Y
End If
End Sub
ma lampeggia tutto e poi il frame lo mette dove vuole lui.
pietą per me, siamo a pasqua.....
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:b8660d85564ecdab904...@mygate.mailgate.org...


scusa ma che io sappia 
non esiste un Frame1.Move()
mi fai vedere del codice ????


 ha scritto nel messaggio
news:cabfe3b3e8ce8f7b81e...@mygate.mailgate.org...


 che vergogna.....
Da un mio vecchio post che non ho voglia di ricercare:
'Inserire in una form un controllo Image (Image1) con un'immagine,
'un rettangolo (Shape1) e una Label (Label1) piuttosto ampia
'Incollare il codice che segue
Dim anche_image2 As Boolean
Dim xcorr As Single
Dim ycorr As Single
Dim xiniz As Single
Dim yiniz As Single
Dim xfine As Single
Dim yfine As Single
Dim xinterno As Single
Dim yinterno As Single
Private Sub Form_Load()
    anche_image2 = 1
    Shape1.Visible = 0
    Image2.Visible = 0
    xcorr = 0
    ycorr = 0
    xiniz = 0
    yiniz = 0
    xfine = 0
    yfine = 0
    xinterno = 0
    yinterno = 0
    Call esponi
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    xcorr = X
    ycorr = Y
    Call esponi
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    anche_image2 = IIf((Button And vbRightButton), 1, 0)
    Image2.Picture = Image1.Picture
    Image2.Width = Image1.Width
    Image2.Height = Image1.Height
    Shape1.Height = Image1.Height
    Shape1.Width = Image1.Width
    xiniz = X + Image1.Left
    yiniz = Y + Image1.Top
    xinterno = X
    yinterno = Y
    xfine = 0
    yfine = 0
    Call esponi
    xcorr = xiniz
    ycorr = yiniz
    Shape1.Visible = 1
    If anche_image2 Then
        Image2.Visible = 1
        'Image2.ZOrder 1
        Shape1.ZOrder 0
    End If
    Call rettangolo
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    xcorr = X + Image1.Left
    ycorr = Y + Image1.Top
    Call esponi
    Call rettangolo
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    Shape1.Visible = 0
    Image2.Visible = 0
    xfine = xiniz + (X - xinterno)
    yfine = yiniz + (Y - yinterno)
    Call esponi
    Image1.Left = Image1.Left + (xfine - xiniz)
    Image1.Top = Image1.Top + (yfine - yiniz)
End Sub
Sub esponi()
    Label1.Caption = "Left-Top " & Image1.Left & " - " & Image1.Top & " /
X-Y Corr. " & xcorr & " - " & ycorr & " / X-Y Iniz. " & xiniz & " - " &
yiniz & " / X-Y Fine " & xfine & " - " & yfine
    Label1.Refresh
End Sub
Sub rettangolo()
    Shape1.Left = xcorr - xinterno
    Shape1.Top = ycorr - yinterno
    If anche_image2 Then
        Image2.Left = xcorr - xinterno
        Image2.Top = ycorr - yinterno
    End If
End Sub

 ha scritto nel messaggio
news:b8660d85564ecdab904...@mygate.mailgate.org...
