個人都不希望在別人的身上發(fā)現(xiàn)有與自己的相同之處。作為計算機軟件來說也是一樣，每一個用戶都希望自己使用的軟件與別人不一樣，于是誕生了換膚技術(shù)。用戶可以根據(jù)自己的喜好來選擇不同的界面，從而實現(xiàn)了個性化的設(shè)置。但是換膚技術(shù)有一個不足之處，那就是所有的皮膚都是由開發(fā)者預(yù)先提供的，而且數(shù)量有限。這就導(dǎo)致了有些用戶使用的皮膚會和另一些用戶使用的皮膚相同，從而違背了設(shè)計者的初衷。雖然有些讀者會說，開發(fā)商現(xiàn)在提供了下載服務(wù)，可以從它們的網(wǎng)站下載更多的皮膚供用戶選擇，可是從我的使用中發(fā)現(xiàn)這些皮膚依然是有限的，而且對于沒有條件上網(wǎng)的用戶來說這種服務(wù)是毫無價值。

　　作為一個軟件開發(fā)人員，當一種技術(shù)已經(jīng)無法滿足用戶的需要的時候就該開動腦筋，想想是否可以從另一種角度來思考問題的答案。在這個前提下，通過本人的思考終于想出了一個新的方法，我將它稱為--交互界面。使用這種技術(shù)可以保證在全球范圍內(nèi)不會出現(xiàn)相同的界面結(jié)構(gòu)，從而完全實現(xiàn)個性化。 　　其實要實現(xiàn)這種界面在技術(shù)方式上并沒有太高的要求。實現(xiàn)原理就是：讓用戶自己調(diào)整每一個控件的位置然后保存這些控件在界面上的坐標位置。在以后啟動這個程序的界面時讀取這些值，用這些值來設(shè)置控件在界面中的位置。下面的代碼就是為實現(xiàn)這個功能而設(shè)計的（用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'禁止控件響應(yīng)事件
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("當前界面已經(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 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 是在調(diào)整控件之后將控件的新位置保存到c;\k.txt文件中。form_load中的if作用是,如果是沒有設(shè)置控件的新位置在初始化是將不會發(fā)現(xiàn)c;\k.txt文件，從而使用默認的參數(shù)來指定控件的位置。如果是有c;\k.txt文件存在就讀取其中的參數(shù)來初始化控件的位置。在Form1_MouseUp中通過點擊窗口中的位置來獲得新的坐標，使控件移動到此坐標處。對于Enabled屬性的使用是為了使控件在移動時不響應(yīng)如click等的事件。

　　本文移動的控件是textbox和button兩個控件，你可以按照本文提出的方法加入更多的控件，從而實現(xiàn)千人千面。

　　其實本人寫這篇文章的一個主要目的是為了說明一個程序員不但要掌握牢固的技術(shù)，同時還要有創(chuàng)新的思想。正如國外的分析家指出"微軟的成功在很大的程度上是依靠它的創(chuàng)新思維"，所以希望讀了此文的讀者在以后的開發(fā)過程中不要墨守成規(guī)！