诗词vb源码( 二 )


这个注册名自动生成器的vb代码应该如何写?我? 建立text1,text2,text3,text4,text5 , 并且设置Text5的Multiline属性为True , 代码如下 。
================================= Private Sub Command1_Click() Dim i As Long, t As Long t = Val(Text2.Text) For i = 0 To Val(Text3.Text) Text5.Text = Text5.Text & Text1.Text & t i & ";" & Text4.Text & vbCrLf Next End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub
求VB代码啊!完成了!!!我自己试过 , 没啥问题自己创建控件(两个图像框 , 两个计时器) , 把Form1的KeyPreview属性改为True粘贴代码 , 运行即可(上下左右移动)代码Option ExplicitDim Right1 As Integer, Left1 As Integer, UP1 As Integer, Down1 As Integer '用于判断P2方向Dim Right2 As Integer, Left2 As Integer, UP2 As Integer, Down2 As Integer '用于判断P1的方向Dim R As Boolean, L As Boolean, U As Boolean, D As Boolean '用于判断是否接触Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '获取PIcture2的方向 Select Case KeyCode Case 38 If Picture2.Top > 0 Then UP1 = 1 Else UP1 = 0 End If Case 40 If Picture2.Top + Picture2.Height0 Then Left1 = 1 Else Left1 = 0 End If Case 39 If Picture2.Left + Picture2.Width0 Then MoveL End If End If If UP1 = 1 Then If Picture2.Top > 0 Then MoveU End If End If If Down1 = 1 Then If Picture2.Top + Picture2.Height = Picture2.Left Then R = True If U = True Or D = True Then MsgBox "追到了" End End If End If End IfEnd SubPrivate Sub MoveL() '设置左移 If Left1 = 1 Then Picture2.Left = Picture2.Left - 100 End If If Left2 = 1 Then Picture1.Left = Picture1.Left - 100 If Picture1.Left = Picture2.Top Then D = True If L = True Or R = True Then MsgBox "追到了" End End If End If End IfEnd SubPrivate Sub Direction() '用于判断P1与P2的相对位置 , 用于判断P1的追击方向 If Picture1.Top >= Picture2.Top + Picture2.Height Then 'P1在P2下方 UP2 = 1 U = False Else UP2 = 0 End If If Picture1.Top + Picture1.Height = Picture2.Left + Picture2.Width Then 'P1在P2右方 Left2 = 1 L = False Else Left2 = 0 End If If (Picture1.Top + Picture1.Height >= Picture2.Top And _ Picture1.Top + Picture1.Height = Picture2.Top And _ Picture1.Top = Picture2.Left And _ Picture1.Left + Picture1.Width = Picture2.Left And _ Picture1.Left <= Picture2.Left + Picture2.Width) Then 'P1在P2左右之间 R = True L = True End IfEnd Sub做的有点简陋粗糙 , 有问题不满意再找我改改 , 希望对你有帮助~~
求VB一代码:用VB创建一文本文件并往里写入一段代码数据要写入的 ...你可以学最简单的 , 就是切换文本 。
插入一个文本控件 , 再插入一个命令按钮 , 命令按钮的作用是-如果被鼠标点击执行代码 , 先给你的文本控件起个名字 , 系统给予文本控件默认名是:lable1.如果又出现一个文本控件名字就是:lable2.如果你还是第一个文本控件的话就输入Private Sub Command1_Click()lable1.caption="(你要输的文字)"end subcaption是属性里面的一个值 , 你也可以在属性栏里找到caption属性值 , 后面有一个lable1那是默认的文字 , 你想改的话 , 就把那个lable1改成你想输入的文字 , 我们只不过在指令中修改它的文字而已 , 如果你想修改名字为lable2的文本控件里的文字 , 只需把指令中的lable1改成lable2就行了 , 要根据实际情况填 。
有情况追问我就行了 。
vb函数源代码Len 函数返回 Long , 其中包含字符串内字符的数目 , 或是存储一变量所需的字节数 。
语法Len(string | varname)Len 函数的语法有下面这些部分:部分 说明 string 任何有效的字符串表达式 。
如果 string 包含 Null , 会返回 Null 。
Varname 任何有效的变量名称 。
如果 varname 包含 Null , 会返回 Null 。
如果 varname 是 Variant,Len 会视其为 String 并且总是返回其包含的字符数 。
说明两个可能的参数必须有其一(而且只能有其一) 。
如为用户定义类型 , Len 会返回其写至文件的大小 。
注意 LenB 函数作用于字符串中的字节数据 , 如同在双字节字符集(DBCS)语言中一样 。
所以 LenB 返回的是用于代表字符串的字节数 , 而不是返回字符串中字符的数量 。
如为用户自定义类型 , LenB 返回在内存中的大小 , 包括元素之间的衬垫 。
对于使用 LenB的示例代码 , 请参阅示例主题中的第二个示例 。
注意 当在用户自定义数据类型中使用变长字符串时 , Len 可能不能确定实际存储所需的字节数目 。