用Vb.net实现自定义界面

haidong

<p >　　对于一个追求个性的时代来说，任何一个人都不希望在别人的身上发现有与自己的相同之处。作为计算机软件来说也是一样，每一个用户都希望自己使用的软件与别人不一样，于是诞生了换肤技术。用户可以根据自己的喜好来选择不同的界面，从而实现了个性化的设置。但是换肤技术有一个不足之处，那就是所有的皮肤都是由开发者预先提供的，而且数量有限。这就导致了有些用户使用的皮肤会和另一些用户使用的皮肤相同，从而违背了设计者的初衷。虽然有些读者会说，开发商现在提供了下载服务，可以从它们的网站下载更多的皮肤供用户选择，可是从我的使用中发现这些皮肤依然是有限的，而且对于没有条件上网的用户来说这种服务是毫无价值。<p >　　作为一个软件开发人员，当一种技术已经无法满足用户的需要的时候就该开动脑筋，想想是否可以从另一种角度来思考问题的答案。在这个前提下，通过本人的思考终于想出了一个新的方法，我将它称为--交互界面。使用这种技术可以保证在全球范围内不会出现相同的界面结构，从而完全实现个性化。 　　其实要实现这种界面在技术方式上并没有太高的要求。实现原理就是：让用户自己调整每一个控件的位置然后保存这些控件在界面上的坐标位置。在以后启动这个程序的界面时读取这些值，用这些值来设置控件在界面中的位置。下面的代码就是为实现这个功能而设计的（用vb.net编写）<p ><ccid_nobr><table width="550" border="1" cellspacing="0" cellpadding="2" bordercolorlight = "black" bordercolordark = "#FFFFFF" align="center"><tr><td bgcolor="e6e6e6" class="code"><pre><ccid_code>　　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(&quot;c:\k.txt&quot;) = True Then            IO.File.Delete(&quot;c:\txt&quot;)            Dim sw As IO.StreamWriter = IO.File.CreateText(&quot;c:\k.txt&quot;)            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(&quot;c:\k.txt&quot;)            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(&quot;当前界面已经保存&quot;)    End Sub        Private Sub Form1_Load(ByVal sender As Object, 　　ByVal e As System.EventArgs) Handles MyBase.Load        If IO.File.Exists(&quot;c:\k.txt&quot;) = True Then            Dim sr As IO.StreamReader = IO.File.OpenText(&quot;c:\k.txt&quot;)            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</ccid_code></pre></td></tr></table></ccid_nobr><p >　　程序说明：在MenuItem4_Click 是在调整控件之后将控件的新位置保存到c;\k.txt文件中。form_load中的if作用是,如果是没有设置控件的新位置在初始化是将不会发现c;\k.txt文件，从而使用默认的参数来指定控件的位置。如果是有c;\k.txt文件存在就读取其中的参数来初始化控件的位置。在Form1_MouseUp中通过点击窗口中的位置来获得新的坐标，使控件移动到此坐标处。对于Enabled属性的使用是为了使控件在移动时不响应如click等的事件。<p >　　本文移动的控件是textbox和button两个控件，你可以按照本文提出的方法加入更多的控件，从而实现千人千面。<p >　　其实本人写这篇文章的一个主要目的是为了说明一个程序员不但要掌握牢固的技术，同时还要有创新的思想。正如国外的分析家指出"微软的成功在很大的程度上是依靠它的创新思维"，所以希望读了此文的读者在以后的开发过程中不要墨守成规！<p ><center class="name02">（责任编辑 西门吹雪 wangyg@staff.ccidnet.com）</center><p align="center"></p></p>