• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----[PC]一个列表框----微光(68) [复制链接]

1#
功能一:[保存列表框内容]
效果一览:

代码一览:
  1. Event Form1.LoadOver
  2. Form1.Button1.Caption = "添加"
  3. Form1.Button2.Caption = "清空"
  4. Form1.ListBox1.List = ""
  5. Text = Plugin.File.ReadFileEx("C:\111.txt")
  6. MyArray = Split(Text, "|")
  7. For i = 0 To UBound(MyArray) - 1
  8. Var1 = MyArray(i)
  9. TracePrint var1
  10. Form1.ListBox1.AddItem Var1
  11. Next
  12. End Event
  13. //从输入框中获取文本内容,添加到列表框中。
  14. Event Form1.Button1.Click
  15. If Form1.InputBox1.Text <> "" Then
  16. Form1.ListBox1.AddItem Form1.InputBox1.Text
  17. End If
  18. Call Plugin.File.WriteFileEx("C:\111.txt", Form1.InputBox1.Text)

  19. End Event
  20. Event Form1.Button2.Click
  21. Form1.ListBox1.List = ""
  22. Call Plugin.File.DeleteFile("C:\111.txt")
  23. End Event
复制代码
功能二:[老式任务选择界面]
效果一览:

代码一览:
  1. Event Form1.LoadOver
  2. Form1.Button1.Caption = "添加"
  3. Form1.Button2.Caption = "清空"
  4. Form1.ListBox1.List = ""
  5. Form1.ListBox2.List ="A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"
  6. Text = Plugin.File.ReadFileEx("D:\Config.txt")
  7. MyArray = Split(Text, "|")
  8. For i = 0 To UBound(MyArray) - 1
  9. Var1=MyArray(i)
  10. Form1.ListBox1.AddItem Var1
  11. Next
  12. End Event
  13. //从输入框中获取文本内容,添加到列表框中。
  14. Event Form1.Button1.Click
  15. Var1 = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
  16. Var3 = Var1(Form1.ListBox2.ListIndex)
  17. Form1.ListBox1.AddItem Var3
  18. Call Plugin.File.WriteFileEx("D:\Config.txt", Var3)
  19. 'Msgbox "向目标文件写入文本内容"
  20. End Event
  21. Event Form1.Button2.Click
  22. Form1.ListBox1.List = ""
  23. Call Plugin.File.DeleteFile("D:\Config.txt"
  24. End Event
复制代码
功能三:[新型任务选择界面]

效果一览:

代码一览:
***** 该内容需您回复才可浏览 *****

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

学习一下啦

3#

学习学习

4#

6666666666666666

5#

看看学习一下

6#

爱仕达撒所所

发新话题 回复该主题