作為一個軟件開發人員，當一種技術已經無法滿足用戶的需要的時候就該開動腦筋，想想是否可以從另一種角度來思考問題的答案。在這個前提下，通過本人的思考終于想出了一個新的方法，我將它稱為交互界面。使用這種技術可以保證在全球范圍內不會出現相同的界面結構，從而完全實現個性化。
其實要實現這種界面在技術方式上并沒有太高的要求。實現原理就是：讓用戶自己調整每一個控件的位置然后保存這些控件在界面上的坐標位置。在以后啟動這個程序的界面時讀取這些值，用這些值來設置控件在界面中的位置。下面的代碼就是為實現這個功能而設計的（用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 IO.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 IO.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 IO.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作用是,如果是沒有設置控件的新位置在初始化是將不會發現c;\k.txt文件，從而使用默認的參數來指定控件的位置。如果是有c;\k.txt文件存在就讀取其中的參數來初始化控件的位置。在Form1_MouseUp中通過點擊窗口中的位置來獲得新的坐標，使控件移動到此坐標處。對于Enabled屬性的使用是為了使控件在移動時不響應如click等的事件。
本文移動的控件是textbox和button兩個控件，你可以按照本文提出的方法加入更多的控件，從而實現千人千面。
其實本人寫這篇文章的一個主要目的是為了說明一個程序員不但要掌握牢固的技術，同時還要有創新的思想。正如國外的分析家指出"微軟的成功在很大的程度上是依靠它的創新思維"，所以希望讀了此文的讀者在以后的開發過程中不要墨守成規！
文章來源于領測軟件測試網 http://www.kjueaiud.com/
