vb.net选型界面 vbnet single

用Vb.net实现自定义界面

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

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

lishixinzhi/Article/program/net/201311/15298

相关问答

Q1: VB.net中DataGridView中行的选择

仿造我的例子，你自己做做看1）设计一个类似的界面（我只有两个字段） 2）单击GridView的右上角小箭头，去掉“允许编辑”（黑色框部分）： 3）然后把GridView的属性做如下改动： 4）在Form1中增加绑定数据的代码（我是模拟的）Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '动态增加一个表格，绑定到GridView上

Dim dt As New DataTable

dt.Columns.Add("Id", GetType(Integer))

dt.Columns.Add("name", GetType(String))

dt.Columns(0).AutoIncrement = True

dt.Columns(0).AutoIncrementSeed = 1

dt.Columns(0).AutoIncrementStep = 1 '模拟数据库数据

Dim row As DataRow For i As Integer = 1 To 10

row = dt.NewRow

row("name") = "name" i

dt.Rows.Add(row)

Next

dt.AcceptChanges() DataGridView1.DataSource = dt End Sub 5）然后使用SelectionChanged事件这样编码：Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

If (DataGridView1.SelectedRows IsNot Nothing AndAlso DataGridView1.SelectedRows.Count 0) Then

'只选择单行，因此取第一行

txtId.Text = DataGridView1.SelectedRows(0).Cells(0).Value

txtName.Text = DataGridView1.SelectedRows(0).Cells(1).Value

End If

End Sub

Q2: vbnet如何在调试时如何选择英文界面

它会根据操作系统自动选择语言。

VB.NET实现多语言(根据操作系统自动选择语言)系统,可以实现中文,日文,英文界面,实现vb.net选型界面了多界面操作。

英语（English）是印欧语系-日耳曼语族下vb.net选型界面的语言vb.net选型界面，由26个字母组成，是欧盟以及许多国际组织以及英联邦国家vb.net选型界面的官方语言，亦是世界上使用最广泛vb.net选型界面的语言。它诞生于日德兰半岛和莱茵河流域，通过英国的殖民活动传播到了世界各地，后因英美两国经济、军事和政治的世界领先地位而成为一种国际语言。

Q3: 请问大侠们 如何用VB.NET 做出微软的 UI界面

你可以在模拟机里装一个系统，然后在模拟机启动时用截图软件对其截图。

关于vb.net选型界面和vbnet single的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。