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
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
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 ?
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.