In doing this. I'll show u how a borderless form that the size, can move, minimize, etc to create maximze: DE 'just like a normal form, except that adapt to all:) the code at: www. mediafire.com Or I have right here ... but itll probally confused if you copy / paste from here: Public Class Form1 Dim oloc as a new point (0, 0) Dim OCUR As New Point (System.Windows.Forms.Cursor.Position) Dim curpos, AppSize As New Point (0 , 0) Private Sub Sync () = curpos Cursor.PositionAppSize = Me.Size refpositions Sub End () = = oloc Me.Location OCUR System.Windows.Forms.Cursor.Position End Sub Private Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1. Click Me.Close () End Sub Private Sub Button3_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Me.WindowState = FormWindowState.Minimized End Sub Button2_Click (ByVal sender As Object, ByVal e System.EventArgs)Handles Button2.Click If Me.WindowState Then FormWindowState.Maximized = = = Button2.Text FormWindowState.Normal Me.WindowState Maximize Else Me.WindowState Button2.Text = FormWindowState.Maximized = "Undo" End If End Sub Private Sub Panel1_MouseDown (ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseDown RszTmr.Start () refpositions () End Sub Private Sub Panel1_MouseUp (ByVal sender As Object, ByVal e As System.EventArgs) Handles...
0 ความคิดเห็น:
แสดงความคิดเห็น