图片上的"发言"是自定义数据类型数组
哪个高手能帮我转下代码呀,谢谢了
我精通易语言,但是刚学VB对代码不太了解
希望能够得到大家的帮助..
.版本 2
.数据类型 发言
.成员 内容, 文本型
.成员 判断, 逻辑型
.子程序 _按钮1_被单击
.变量名称 数据类型 数组
.局部变量 发言, 发言, , "3"
.局部变量 i, 整数型
发言 [1].内容 = 编辑框1.内容
发言[1.选择=选择框1.选中
.计次循环首 (取数组成员数 (发言), i)
.如果真 (发言 [i].判断 = 真)
处理事件 ()
延迟 (1000)
标签1.标题 = 发言 [i].内容
.如果真结束
.计次循环尾 ()
意思如下:
这个是一个自动发言的模拟
界面上有5个选择框 ,5个编辑框(text)
当某一个发言内容没有被选择的时候,则不执行那行的发言
在易语言中定义了一个自定义数据类型数组
将编辑框 和选择框放在一个数据类型上做为一组
用一个循环 做检查,取一下它的数组有多少成员
在执行代码的时候只要判断哪一组的数据类型符合条件即选择框被选择,则在标签上显示问文本.
图片如下:
VB.Net代码:
Structure Message ’数据结构“发言”
Dim Content As String ‘生命“内容”
Dim Flag As Boolean ’声明“判断”
End Structure
Private Sub Button1_Click(ByVal sender As Object, ByVal e _
As EventArgs) Handles Button1.Click
Dim Messages(3) As Message
Dim i As Integer
Messages(0).Content = TextBox1.Text
Messages(0).Flag = CheckBox1.Checked
For i = 0 to Messages.GetLength(0) - 1
If Messages(i).Flag Then
Application.DoEvents()
Threading.Thread.Sleep(1000)
Label1.Text = Messages(i).Content
End If
Next i
End Sub
以上就是把LZ的易语言代码逐行翻译成VB.Net
VB6的话已经很长时间没用过了……忘光了……
Structure Message ’数据结构“发言”
Dim Content As String ‘生命“内容”
Dim Flag As Boolean ’声明“判断”
End Structure
Private Sub Button1_Click(ByVal sender As Object, ByVal e _
As EventArgs) Handles Button1.Click
Dim Messages(3) As Message
Dim i As Integer
Messages(0).Content = TextBox1.Text
Messages(0).Flag = CheckBox1.Checked
For i = 0 to Messages.GetLength(0) - 1
If Messages(i).Flag Then
Application.DoEvents()
Threading.Thread.Sleep(1000)
Label1.Text = Messages(i).Content
End If
Next i
End Sub
以上就是把LZ的易语言代码逐行翻译成VB.Net
VB6的话已经很长时间没用过了……忘光了……
温馨提示:答案为网友推荐,仅供参考