深入討論VB.NET設置控件
VB.NET經(jīng)過長時間的發(fā)展，很多用戶都很了解VB.NET設置控件了，這里我發(fā)表一下個人理解，和大家討論討論。個人都不希望在別人的身上發(fā)現(xiàn)有與自己的相同之處。作為計算機軟件來說也是一樣，每一個用戶都希望自己使用的軟件與別人不一樣，于是誕生了換膚技術。用戶可以根據(jù)自己的喜好來選擇不同的界面，從而實現(xiàn)了個性化的設置。但是換膚技術有一個不足之處，那就是所有的皮膚都是由開發(fā)者預先提供的，而且數(shù)量有限。這就導致了有些用戶使用的皮膚會和另一些用戶使用的皮膚相同，從而違背了設計者的初衷。雖然有些讀者會說，開發(fā)商現(xiàn)在提供了下載服務，可以從它們的網(wǎng)站下載更多的皮膚供用戶選擇，可是從我的使用中發(fā)現(xiàn)這些皮膚依然是有限的，而且對于沒有條件上網(wǎng)的用戶來說這種服務是毫無價值。
作為一個軟件開發(fā)人員，當一種技術已經(jīng)無法滿足用戶的需要的時候就該開動腦筋，想想是否可以從另一種角度來思考問題的答案。在這個前提下，通過本人的思考終于想出了一個新的方法，我將它稱為--交互界面。使用這種技術可以保證在全球范圍內不會出現(xiàn)相同的界面結構，從而完全實現(xiàn)個性化。
其實要實現(xiàn)這種界面在技術方式上并沒有太高的要求。實現(xiàn)原理就是：讓用戶自己調整每一個控件的位置然后保存這些控件在界面上的坐標位置。在以后啟動這個程序的界面時讀取這些值，用這些值來VB.NET設置控件在界面中的位置。下面的代碼就是為實現(xiàn)這個功能而設計的（用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("當前界面已經(jīng)保存")
- 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設置控件的新位置在初始化是將不會發(fā)現(xiàn)c;\k.txt文件，從而使用默認的參數(shù)來指定控件的位置。如果是有c;\k.txt文件存在就讀取其中的參數(shù)來初始化控件的位置。在Form1_MouseUp中通過點擊窗口中的位置來獲得新的坐標，使控件移動到此坐標處。對于Enabled屬性的使用是為了使控件在移動時不響應如click等的事件。
本文移動的控件是textbox和button兩個控件，你可以按照本文提出的方法加入更多的控件，從而實現(xiàn)千人千面。
其實本人寫這篇文章的一個主要目的是為了說明一個程序員不但要掌握牢固的技術，同時還要有創(chuàng)新的思想。正如國外的分析家指出"微軟的成功在很大的程度上是依靠它的創(chuàng)新思維"，所以希望讀了此文的讀者在以后的開發(fā)過程中不要墨守成規(guī)！
【編輯推薦】
