VB显示文本的字体和字号如何用代码来设置？求一个简单的vb小游戏制作代码

本文目录

• VB显示文本的字体和字号如何用代码来设置
• 求一个简单的vb小游戏制作代码
• 怎么看VB代码、又怎么编写代码
• vb代码怎么写
• vb代码怎么用
• VB代码的意思

VB显示文本的字体和字号如何用代码来设置

VB软件用代码设置字体字号和字体颜色的操作步骤具体如下：

1、打开VB软件，FrontSize表示字号，FrontName表示字体，打开文本输入框。

2、设置字号：比如要更改字号为“28”，打开输入文本框，编写如图所示的代码，即可更换字体的字号为“28”。

3、设置字体：比如要设置字体为“隶书”，打开输入文本框，编写如图所示的代码，即可更换字体的格式为“隶书”。

4、另外给大家介绍下设置字体颜色：比如要设置字体颜色为“红色”，打开输入文本框，编写如图所示的代码，即可更换字体的颜色为“红色”。

求一个简单的vb小游戏制作代码

贪吃蛇Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 ThenIf Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel1.Visible = TrueElseTimer1.Enabled = TrueLabel1.Visible = FalseEnd IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd SubPrivate Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState 《》 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X - 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X - 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y - 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y - 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 ThenGoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X + 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y + 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 ThenGoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X - 1Case 1She(I).Y = She(I).Y - 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes ThenChuShiHuaElseEndEnd IfEnd SubPrivate Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTuChanShengShiWuEnd SubPrivate Sub QingChu()Dim I As LongFor I = 0 To UBound(She)Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd SubPrivate Sub HuaTu()Dim I As LongFor I = 0 To UBound(She)Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1She(I).F = She(I + 1).FNextEnd SubPrivate Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) 》 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub

怎么看VB代码、又怎么编写代码

要看VB代码，首先得知道这些代码是什么意思，所以要先学习和了解VB函数及使用及操作方法。

建议先看几本VB编程的书，如：Visual Basic 程序设计 康丽军 吴红萍主编 北京大学出版社 这本书讲的很基础，感觉比较适合初学者。

学习了基本的函数后，就可以对照书中的实例，编写自己的程序了。比如，一个简单的例子。

点击按钮，显示对话框：

1，打开VB，新建程序，然后在窗体中添加一个Command1控件。

2，点击Command1，添加代码：Msgbox "你好！"

3，点击即可。

4，代码编写完毕。

*VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具之一，是目前世界上使用最广泛的程序开发工具。

vb代码怎么写

Private Sub Command1_Click()

If Option1.Value = True Then

Text2 = Sin(Val(Text1))

End If

If Option2.Value = True Then

Text2 = Exp(Val(Text1))

End If

If Option3.Value = True Then

Text2 = Sqr(Val(Text1))

End If

If Check1.Value = 1 Then

Text2.FontBold = True

End If

If Check2.Value = 1 Then

Text2.FontItalic = True

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "参数"

Label2.Caption = "结果"

Command1.Caption = "计算"

Frame1.Caption = ""

Frame2.Caption = ""

Option1.Caption = "sin"

Option2.Caption = "exp"

Option3.Caption = "sqr"

Check1.Caption = "粗体"

Check2.Caption = "斜体"

Text1 = 4

Text2 = ""

Text2.BackColor = &H80000006

Text2.BorderStyle = 0

Text2.FontSize = 20

Option3.Value = True

End Sub

vb代码怎么用

详细步骤如下：

1. 打开VB6.0，选择新建标准 EXE，并点击打开

2. 在Form1中添加一个CommandButton控件

3. 双击Command1，进入程序界面，将原来的内容清除，复制上述代码

4. 按F5运行程序，点击Command1，即可实现程序检测QQ程序是否运行的效果

VB代码的意思

这不是vb代码，是接口返回的数据串，你可以自己用vb代码来解析。下面我提供个简单的json解析代码，完整的解析代码百度下，有相关的类的。

’根据json的key获取value值’例如：getJsonValue(strHtml,"statusCode")function getJsonValue(strJsonString,strJsonKey)    getJsonValue=getMatch1Sub1(strJsonString, "{""" & strJsonKey & """:""(.*?)""")end functionfunction getMatch1Sub1(strData,strPattern)    Set reg = CreateObject("vbscript.regExp")    reg.Global = True    reg.IgnoreCase = True    reg.MultiLine = True    reg.Pattern = strPattern’"====\r\n(*?2431682927627455"    Set matchs = reg.Execute(strData)    if matchs.Count》0 then getMatch1Sub1=matchs(0).SubMatches(0)End function