偷偷摘套内射激情视频,久久精品99国产国产精,中文字幕无线乱码人妻,中文在线中文a,性爽19p

深入討論VB.NET設置控件

開發(fā) 后端
這里介紹VB.NET設置控件,用戶可以根據(jù)自己的喜好來選擇不同的界面,從而實現(xiàn)了個性化的設置。但是換膚技術有一個不足之處,那就是所有的皮膚都是由開發(fā)者預先提供的,而且數(shù)量有限。

VB.NET經(jīng)過長時間的發(fā)展,很多用戶都很了解VB.NET設置控件了,這里我發(fā)表一下個人理解,和大家討論討論。個人都不希望在別人的身上發(fā)現(xiàn)有與自己的相同之處。作為計算機軟件來說也是一樣,每一個用戶都希望自己使用的軟件與別人不一樣,于是誕生了換膚技術。用戶可以根據(jù)自己的喜好來選擇不同的界面,從而實現(xiàn)了個性化的設置。但是換膚技術有一個不足之處,那就是所有的皮膚都是由開發(fā)者預先提供的,而且數(shù)量有限。這就導致了有些用戶使用的皮膚會和另一些用戶使用的皮膚相同,從而違背了設計者的初衷。雖然有些讀者會說,開發(fā)商現(xiàn)在提供了下載服務,可以從它們的網(wǎng)站下載更多的皮膚供用戶選擇,可是從我的使用中發(fā)現(xiàn)這些皮膚依然是有限的,而且對于沒有條件上網(wǎng)的用戶來說這種服務是毫無價值。

作為一個軟件開發(fā)人員,當一種技術已經(jīng)無法滿足用戶的需要的時候就該開動腦筋,想想是否可以從另一種角度來思考問題的答案。在這個前提下,通過本人的思考終于想出了一個新的方法,我將它稱為--交互界面。使用這種技術可以保證在全球范圍內不會出現(xiàn)相同的界面結構,從而完全實現(xiàn)個性化。

其實要實現(xiàn)這種界面在技術方式上并沒有太高的要求。實現(xiàn)原理就是:讓用戶自己調整每一個控件的位置然后保存這些控件在界面上的坐標位置。在以后啟動這個程序的界面時讀取這些值,用這些值來VB.NET設置控件在界面中的位置。下面的代碼就是為實現(xiàn)這個功能而設計的(用VB.NET編寫)

  1. Private Sub Form1_MouseUp(ByVal sender As Object,  
  2. ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp  
  3. Dim x, y  
  4. x = e.X  
  5. y = e.Y'獲得新的x,y的坐標  
  6. If Button1.Enabled = False Then  
  7. Button1.Top = y 
  8. Button1.Left = x'坐標替換  
  9. End If  
  10. If TextBox1.Enabled = False Then  
  11. TextBox1.Top = y 
  12. TextBox1.Left = x  
  13. End If  
  14. End Sub  
  15. Private Sub MenuItem2_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles MenuItem2.Click  
  16. Button1.Enabled = False'禁止控件響應事件  
  17. If TextBox1.Enabled = False Then  
  18. TextBox1.Enabled = True 
  19. End If  
  20. End Sub  
  21. Private Sub MenuItem3_Click(ByVal sender As System.Object,  
  22. ByVal e As System.EventArgs) Handles MenuItem3.Click  
  23. TextBox1.Enabled = False 
  24. If Button1.Enabled = False Then  
  25. Button1.Enabled = True 
  26. End If  
  27. End Sub  
  28. Private Sub MenuItem4_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles MenuItem4.Click  
  29. TextBox1.Enabled = True 
  30. Button1.Enabled = True 
  31. '將新的坐標保存到文本文件中  
  32. If IO.File.Exists("c:\k.txt") = True Then  
  33. IO.File.Delete("c:\txt")  
  34. Dim sw As IOIO.StreamWriter = IO.File.CreateText("c:\k.txt")  
  35. Dim cstringt, cstringl As String  
  36. Dim tstringt, tstringl As String  
  37. cstringt = Button1.Top  
  38. cstringl = Button1.Left  
  39. tstringt = TextBox1.Top  
  40. tstringl = TextBox1.Left  
  41. sw.WriteLine(cstringt)'寫入新坐標到文本文件中  
  42. sw.WriteLine(cstringl)  
  43. sw.WriteLine(tstringt)  
  44. sw.WriteLine(tstringl)  
  45. sw.Close()  
  46. Else  
  47. Dim sw As IOIO.StreamWriter = IO.File.CreateText("c:\k.txt")  
  48. Dim cstringt, cstringl As String  
  49. Dim tstringt, tstringl As String  
  50. cstringt = Button1.Top  
  51. cstringl = Button1.Left  
  52. tstringt = TextBox1.Top  
  53. tstringl = TextBox1.Left  
  54. sw.WriteLine(cstringt)  
  55. sw.WriteLine(cstringl)  
  56. sw.WriteLine(tstringt)  
  57. sw.WriteLine(tstringl)  
  58. sw.Close()  
  59. End If  
  60. MsgBox("當前界面已經(jīng)保存")  
  61. End Sub  
  62. Private Sub Form1_Load(ByVal sender As Object,  
  63. ByVal e As System.EventArgs) Handles MyBase.Load  
  64.  
  65. If IO.File.Exists("c:\k.txt") = True Then  
  66. Dim sr As IOIO.StreamReader = IO.File.OpenText("c:\k.txt")  
  67. Dim input1, input2, input3, input4 As String  
  68. input1 = sr.ReadLine  
  69. input2 = sr.ReadLine  
  70. input3 = sr.ReadLine  
  71. input4 = sr.ReadLine'讀取文件中的坐標  
  72. Button1.Top = input1 
  73. Button1.Left = input2 
  74. TextBox1.Top = input3 
  75. TextBox1.Left = input4'用文件中的值來初始化控件在界面中的位置  
  76. sr.Close()  
  77. End If  
  78. End Sub 

程序說明:在MenuItem4_Click 是在調整控件之后將控件的新位置保存到c;\k.txt文件中。form_load中的if作用是,如果是沒有VB.NET設置控件的新位置在初始化是將不會發(fā)現(xiàn)c;\k.txt文件,從而使用默認的參數(shù)來指定控件的位置。如果是有c;\k.txt文件存在就讀取其中的參數(shù)來初始化控件的位置。在Form1_MouseUp中通過點擊窗口中的位置來獲得新的坐標,使控件移動到此坐標處。對于Enabled屬性的使用是為了使控件在移動時不響應如click等的事件。

本文移動的控件是textbox和button兩個控件,你可以按照本文提出的方法加入更多的控件,從而實現(xiàn)千人千面。

其實本人寫這篇文章的一個主要目的是為了說明一個程序員不但要掌握牢固的技術,同時還要有創(chuàng)新的思想。正如國外的分析家指出"微軟的成功在很大的程度上是依靠它的創(chuàng)新思維",所以希望讀了此文的讀者在以后的開發(fā)過程中不要墨守成規(guī)!

【編輯推薦】

  1. 代碼講述VB.NET實現(xiàn)數(shù)據(jù)綁定
  2. VB.NET TextBox組件高手經(jīng)驗談
  3. 瞬間掌握VB.NET Web Service
  4. 實例分析VB.NET Treeview結構
  5. 百寶箱之VB.NET設計制作窗體
責任編輯:佚名 來源: IT168
相關推薦

2010-01-12 15:21:48

VB.NET權限控制

2009-10-20 10:29:30

VB.NET使用Sor

2009-10-26 15:26:37

VB.NET屬性

2010-01-13 10:53:24

VB.NET控件

2009-10-23 13:14:38

2009-10-14 16:04:43

VB.NET Noti

2009-10-14 10:19:57

VB.NET Doma

2009-10-20 10:16:24

VB.NET COMB

2009-10-14 17:21:47

VB.NET定制Win

2009-10-16 13:19:04

VB.NET Data

2009-10-16 14:07:18

VB.NET使用Mon

2009-10-14 11:15:06

VB.NET Grou

2009-10-27 18:06:41

VB.NET開發(fā)控件

2009-10-10 16:44:52

VB.NET開發(fā)控件

2009-10-13 15:09:19

VB.NET使用Tre

2010-01-19 10:12:39

VB.NET Butt

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti

2009-10-12 15:02:51

VB.NET動態(tài)控件

2009-10-23 13:10:14

VB.NET List
點贊
收藏

51CTO技術棧公眾號