VB.NET中怎么設置控件

這篇文章給大家介紹VB.NET中怎么設置控件，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

VB.NET經過長時間的發展，很多用戶都很了解VB.NET設置控件了，這里我發表一下個人理解，和大家討論討論。個人都不希望在別人的身上發現有與自己的相同之處。作為計算機軟件來說也是一樣，每一個用戶都希望自己使用的軟件與別人不一樣，于是誕生了換膚技術。用戶可以根據自己的喜好來選擇不同的界面，從而實現了個性化的設置。但是換膚技術有一個不足之處，那就是所有的皮膚都是由開發者預先提供的，而且數量有限。這就導致了有些用戶使用的皮膚會和另一些用戶使用的皮膚相同，從而違背了設計者的初衷。雖然有些讀者會說，開發商現在提供了下載服務，可以從它們的網站下載更多的皮膚供用戶選擇，可是從我的使用中發現這些皮膚依然是有限的，而且對于沒有條件上網的用戶來說這種服務是毫無價值。

作為一個軟件開發人員，當一種技術已經無法滿足用戶的需要的時候就該開動腦筋，想想是否可以從另一種角度來思考問題的答案。在這個前提下，通過本人的思考終于想出了一個新的方法，我將它稱為--交互界面。使用這種技術可以保證在全球范圍內不會出現相同的界面結構，從而完全實現個性化。

其實要實現這種界面在技術方式上并沒有太高的要求。實現原理就是：讓用戶自己調整每一個控件的位置然后保存這些控件在界面上的坐標位置。在以后啟動這個程序的界面時讀取這些值，用這些值來VB.NET設置控件在界面中的位置。下面的代碼就是為實現這個功能而設計的（用VB.NET編寫）

Private Sub Form1_MouseUp(ByVal sender As Object,  
ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp  
Dim x, y  
x = e.X  
y = e.Y'獲得新的x,y的坐標  
If Button1.Enabled = False Then  
Button1.Top = y 
Button1.Left = x'坐標替換  
End If  
If TextBox1.Enabled = False Then  
TextBox1.Top = y 
TextBox1.Left = x  
End If  
End Sub  
Private Sub MenuItem2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MenuItem2.Click  
Button1.Enabled = False'禁止控件響應事件  
If TextBox1.Enabled = False Then  
TextBox1.Enabled = True 
End If  
End Sub  
Private Sub MenuItem3_Click(ByVal sender As System.Object,  
ByVal e As System.EventArgs) Handles MenuItem3.Click  
TextBox1.Enabled = False 
If Button1.Enabled = False Then  
Button1.Enabled = True 
End If  
End Sub  
Private Sub MenuItem4_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MenuItem4.Click  
TextBox1.Enabled = True 
Button1.Enabled = True 
'將新的坐標保存到文本文件中  
If IO.File.Exists("c:\k.txt") = True Then  
IO.File.Delete("c:\txt")  
Dim sw As IOIO.StreamWriter = IO.File.CreateText("c:\k.txt")  
Dim cstringt, cstringl As String  
Dim tstringt, tstringl As String  
cstringt = Button1.Top  
cstringl = Button1.Left  
tstringt = TextBox1.Top  
tstringl = TextBox1.Left  
sw.WriteLine(cstringt)'寫入新坐標到文本文件中  
sw.WriteLine(cstringl)  
sw.WriteLine(tstringt)  
sw.WriteLine(tstringl)  
sw.Close()  
Else  
Dim sw As IOIO.StreamWriter = IO.File.CreateText("c:\k.txt")  
Dim cstringt, cstringl As String  
Dim tstringt, tstringl As String  
cstringt = Button1.Top  
cstringl = Button1.Left  
tstringt = TextBox1.Top  
tstringl = TextBox1.Left  
sw.WriteLine(cstringt)  
sw.WriteLine(cstringl)  
sw.WriteLine(tstringt)  
sw.WriteLine(tstringl)  
sw.Close()  
End If  
MsgBox("當前界面已經保存")  
End Sub  
Private Sub Form1_Load(ByVal sender As Object,  
ByVal e As System.EventArgs) Handles MyBase.Load  
 
If IO.File.Exists("c:\k.txt") = True Then  
Dim sr As IOIO.StreamReader = IO.File.OpenText("c:\k.txt")  
Dim input1, input2, input3, input4 As String  
input1 = sr.ReadLine  
input2 = sr.ReadLine  
input3 = sr.ReadLine  
input4 = sr.ReadLine'讀取文件中的坐標  
Button1.Top = input1 
Button1.Left = input2 
TextBox1.Top = input3 
TextBox1.Left = input4'用文件中的值來初始化控件在界面中的位置  
sr.Close()  
End If  
End Sub 

程序說明：在MenuItem4_Click 是在調整控件之后將控件的新位置保存到c;\k.txt文件中。form_load中的if作用是，如果是沒有VB.NET設置控件的新位置在初始化是將不會發現c;\k.txt文件，從而使用默認的參數來指定控件的位置。如果是有c;\k.txt文件存在就讀取其中的參數來初始化控件的位置。在Form1_MouseUp中通過點擊窗口中的位置來獲得新的坐標，使控件移動到此坐標處。對于Enabled屬性的使用是為了使控件在移動時不響應如click等的事件。

關于VB.NET中怎么設置控件就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。