0

Hi
Is there a way a vb form structure the same as its backgroud picture?
Its same with making the form invisible and let its background picture remain
Im trying to make a program that when it runs, it displays like widget.

thanks

5
Contributors
5
Replies
43
Views
3 Years
Discussion Span
Last Post by Deep Modi
0

yes like what minimalist said and try to add mouse control to your form so you can move it around

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
            (ByVal hwnd As Integer, ByVal wMsg As Integer, _
             ByVal wParam As Integer, ByVal lParam As String) As Integer
    Private Declare Sub ReleaseCapture Lib "user32" ()
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Dim lHwnd As Int32
        lHwnd = Me.Handle
        If lHwnd = 0 Then Exit Sub
        ReleaseCapture()
        SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End Sub
0

O.K. here a re twopictures, one in design mode the other when the application is running. There 2 pictureboxes red andblue and one oval shape yellow. The picture can be moved at run time only when grabbing the red part, that's where I put some code in.

Public Class Form1
    Dim AppLoc, CurLoc As New Point(0, 0)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Synchro()
        AppLoc = Me.Location
        CurLoc = Cursor.Position
    End Sub
    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        Timer1.Enabled = True
        Timer1.Start()
        Synchro()
    End Sub
    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        Timer1.Stop()
        Synchro()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Location = AppLoc - CurLoc + Cursor.Position
        Synchro()
    End Sub
End Class
Attachments 2.jpg 6.83 KB 1.jpg 6.36 KB
0

Can you tell me exactly what you want to build like?
you should add image for it,
there causes confusion,
What you want transparent image or fully style as VB.Net ?

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.