Question

哪个VB高手能帮我把这段易语言代码转成VB代码呀.谢谢啦

图片上的"发言"是自定义数据类型数组
哪个高手能帮我转下代码呀,谢谢了
我精通易语言,但是刚学VB对代码不太了解
希望能够得到大家的帮助..
.版本 2
.数据类型 发言
.成员 内容, 文本型
.成员 判断, 逻辑型
.子程序 _按钮1_被单击
.变量名称 数据类型 数组
.局部变量 发言, 发言, , "3"
.局部变量 i, 整数型
发言 [1].内容 ＝ 编辑框1.内容
发言[1.选择=选择框1.选中
.计次循环首 (取数组成员数 (发言), i)
.如果真 (发言 [i].判断 ＝ 真)
处理事件 ()
延迟 (1000)
标签1.标题 ＝ 发言 [i].内容
.如果真结束
.计次循环尾 ()
意思如下:
这个是一个自动发言的模拟
界面上有5个选择框 ,5个编辑框(text)
当某一个发言内容没有被选择的时候,则不执行那行的发言
在易语言中定义了一个自定义数据类型数组
将编辑框 和选择框放在一个数据类型上做为一组
用一个循环 做检查,取一下它的数组有多少成员
在执行代码的时候只要判断哪一组的数据类型符合条件即选择框被选择,则在标签上显示问文本.
图片如下:

Answer 1

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的话已经很长时间没用过了……忘光了……

Answer 2

哪有图片啊

Answer 3

没有看明白,楼主用白话解释下好了.不懂易语言.