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

Recommended Answers

All 5 Replies

set the borderstyle of your form to none and play around with the opacity

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

Do you mean to make a totally transparent form and make the background picture bold. If so, you can try some UI forms.

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

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 ?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.