用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 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两个控件，你可以按照本文提出的方法加入更多的控件，从而实