知识大全用Vb.net实现自定义界面

Posted 2022-07-16 知

篇首语：生活中若没有朋友，就像生活中没有阳光一样。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Vb.net实现自定义界面相关的知识，希望对你有一定的参考价值。

用Vb.net实现自定义界面 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　个人都不希望在别人的身上发现有与自己的相同之处作为计算机软件来说也是一样每一个用户都希望自己使用的软件与别人不一样于是诞生了换肤技术用户可以根据自己的喜好来选择不同的界面从而实现了个性化的设置但是换肤技术有一个不足之处那就是所有的皮肤都是由开发者预先提供的而且数量有限这就导致了有些用户使用的皮肤会和另一些用户使用的皮肤相同从而违背了设计者的初衷虽然有些读者会说开发商现在提供了下载服务可以从它们的网站下载更多的皮肤供用户选择可是从我的使用中发现这些皮肤依然是有限的而且对于没有条件上网的用户来说这种服务是毫无价值

　　作为一个软件开发人员当一种技术已经无法满足用户的需要的时候就该开动脑筋想想是否可以从另一种角度来思考问题的答案在这个前提下通过本人的思考终于想出了一个新的方法我将它称为交互界面使用这种技术可以保证在全球范围内不会出现相同的界面结构从而完全实现个性化　　　　其实要实现这种界面在技术方式上并没有太高的要求实现原理就是让用户自己调整每一个控件的位置然后保存这些控件在界面上的坐标位置在以后启动这个程序的界面时读取这些值用这些值来设置控件在界面中的位置下面的代码就是为实现这个功能而设计的（用vb net编写）

　　Private Sub Form _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 Button Enabled = False Then Button Top = y Button Left = x 坐标替换 End If If TextBox Enabled = False Then TextBox Top = y TextBox Left = x End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object 　　ByVal e As System EventArgs) Handles MenuItem Click Button Enabled = False 禁止控件响应事件 If TextBox Enabled = False Then TextBox Enabled = True End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object 　　ByVal e As System EventArgs) Handles MenuItem Click TextBox Enabled = False If Button Enabled = False Then Button Enabled = True End If End Sub Private Sub MenuItem _Click(ByVal sender As System Object 　　ByVal e As System EventArgs) Handles MenuItem Click TextBox Enabled = True Button 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 = Button Top cstringl = Button Left tstringt = TextBox Top tstringl = TextBox 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 = Button Top cstringl = Button Left tstringt = TextBox Top tstringl = TextBox Left sw WriteLine(cstringt) sw WriteLine(cstringl) sw WriteLine(tstringt) sw WriteLine(tstringl) sw Close() End If MsgBox( 当前界面已经保存 ) End Sub Private Sub Form _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 input input input input As String input = sr ReadLine input = sr ReadLine input = sr ReadLine input = sr ReadLine 读取文件中的坐标 Button Top = input Button Left = input TextBox Top = input TextBox Left = input 用文件中的值来初始化控件在界面中的位置 sr Close() End If End Sub

　　程序说明在MenuItem _Click 是在调整控件之后将控件的新位置保存到c;\\k txt文件中 form_load中的if作用是如果是没有设置控件的新位置在初始化是将不会发现c;\\k txt文件从而使用默认的参数来指定控件的位置如果是有c;\\k txt文件存在就读取其中的参数来初始化控件的位置在Form _MouseUp中通过点击窗口中的位置来获得新的坐标使控件移动到此坐标处对于Enabled属性的使用是为了使控件在移动时不响应如click等的事件

　　本文移动的控件是textbox和button两个控件你可以按照本文提出的方法加入更多的控件从而实现千人千面

cha138/Article/program/net/201311/15298

知识大全 用Vb.net实现自定义界面

知识大全用Vb.net实现自定义界面