|
|
#8
tengyiming2012-07-29 15:34
如果使用控件数组对于“你知道吗”部分化简，我的代码如下（用以替代四个text的change事件）：
Private Sub Text1_Click(Index as Integer)
Dim message, title, defaultValue As String
Dim myValue As String
Dim myappzfc as string
myappzfc = "MyApp29a0" & Str(index)
message = "" '设置提示信息
title = "请输入您的答案" '设置标题
defaultValue = "" '设置默认值
myValue = InputBox(message, title, defaultValue, 100, 100)
'显示输入对话框
If myValue = "" Then
Else
Text1(index).Text = myValue
SaveSetting myappzfc, "保存留言", "内容", myValue
End If
End Sub
去掉inputbox部分，变为（change事件）：
Private Sub Text1_Change(Index as Integer)
Dim message, title, defaultValue As String
Dim myValue As String
Dim myappzfc as string
myappzfc = "MyApp29a0" & Str(index)
myValue = Text1(Index).text
If myValue <> "" Then
Text1(index).Text = myValue
SaveSetting myappzfc, "保存留言", "内容", myValue
End If
End Sub
然后修改对应的Form_Load事件：
Private Sub Form_Load() '留言栏,注意MyApp编号
'Text6.Text = Inet1.OpenURL("http://www.) '信息发布,先在页面上导入工具条上的Inte图标
For i = 0 To 4
Text1(i).Text = GetSetting("MyApp29a0" & Str(i), "保存留言", "内容", "")
Next i
Hook Me.hwnd
End Sub
最后选中这五个文本框，把mousepointer属性改为defaault（鼠标指针变回箭头样式），就改完了。
至于创建控件数组，选中一个文本框text1，复制，粘贴，在询问的对话框点是就可以了。
注意index值从0开始，5个文本框就分别为0,1,2,3,4.
创建之后就可以更改每一个文本框的背景颜色，然后改代码，属性，就ok了。
我重新封装了一下，运行没有问题。
这个只是一个举例，你那里面有很多地方可以像这样简化，可以让代码简单不少。我认为VB6的一大优点就是保留了控件数组的功能。
然后楼主或者看帖的高手们如果认为有什么需要纠正或改进的地方尽管说，大家共同学习，共同进步嘛。
|
