• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用Vb.net实现自定义界面

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

        作为一个软件开发人员,

      Visual Basic.Net连各种数据库的几种方法
      VB.Net调用存储过程并得到返回值,详解VB.NET对象浏览器作用体现,老生常谈:从VB6迁移到VB.net,VB.net2008精彩实例,窗体应用技巧,用VB.net2008打造你的影音播放器,一个Office 2003风格的通知控件(VB.NET),在VB.NET中操作MySQL数据库,vb.net开发中使用excel插件的代码,vb.net封装组件成com的方法,.NET环境下几种不同的邮件发送解决方案,用.net动态创建类的实例,VB.NET实现DataList横向数据交替变色,在VB.Net中创建使用控件数组,在Visual Basic .NET 中实现后台进程,VB.NET中使用Directsound9之简单播放,用新VB.NET 枚举提高效率,在有Clipboard的应用程序间移动数据,VB.NET中的变量范围差异,从Visual Basic 6.0 到 Visual Basic.NET 的转换,微软.Net程序设计FAQ
      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两个控件,你可以按照本文提出的方法加入更多的控件,从而实现千人千面。

        其实本人写这篇文章的一个主要目的是为了说明一个程序员不但要掌握牢固的技术,同时还要有创新的思想。正如国外的分析家指出"微软的成功在很大的程度上是依靠它的创新思维",所以希望读了此文的读者在以后的开发过程中不要墨守成规!

      Visual Basic.Net连各种数据库的几种方法
      VB.Net调用存储过程并得到返回值,详解VB.NET对象浏览器作用体现,老生常谈:从VB6迁移到VB.net,VB.net2008精彩实例,窗体应用技巧,用VB.net2008打造你的影音播放器,一个Office 2003风格的通知控件(VB.NET),在VB.NET中操作MySQL数据库,vb.net开发中使用excel插件的代码,vb.net封装组件成com的方法,.NET环境下几种不同的邮件发送解决方案,用.net动态创建类的实例,VB.NET实现DataList横向数据交替变色,在VB.Net中创建使用控件数组,在Visual Basic .NET 中实现后台进程,VB.NET中使用Directsound9之简单播放,用新VB.NET 枚举提高效率,在有Clipboard的应用程序间移动数据,VB.NET中的变量范围差异,从Visual Basic 6.0 到 Visual Basic.NET 的转换,微软.Net程序设计FAQ
      VB.net

    • 0
    • 0
    • 0
    • 87
    • 单栏布局 侧栏位置: