一个小问题！！

Question

Private Sub Form_Load()
    Text1.FontSize = 22
    Text1.ForeColor = QBColor(12)
End Sub

Answer 1

Private Sub Form_Load()
    Text1.FontSize = 大小
    Text1.ForeColor = RGB(255,0,255)
End Sub

Answer 2

Option ExplicitPrivate Sub About_Click()
Dim aboutstring As String
aboutstring = MsgBox("windows98界面模仿1.0,小小设计", vbYesNo, "关于")
End SubPrivate Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontSize = 12
Else
Text1.FontSize = 9
End If
End SubPrivate Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End SubPrivate Sub FontIt_Click()
Text1.FontItalic = True
FontIt.Checked = True
End SubPrivate Sub Form_Load()
FontIt.Checked = False
Frame1.Visible = False
Frame2.Visible = False
Dim password As String
password = InputBox("输入密码", "密码框")
Do While password <> "xiaoxiao"
password = InputBox("输入密码", "密码框")
Loop
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Visible = False
Frame2.Visible = False
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu File
End If
End SubPrivate Sub Form_Resize()
start.Top = ScaleHeight - start.Height - StatusBar1.Height
start.Left = 0
Frame1.Left = start.Left
Frame1.Top = start.Top - Frame1.Height
Text1.Top = ScaleHeight - Text1.Height - StatusBar1.Height
Text1.Left = ScaleHeight - Text1.Width
Label1.Left = Text1.Top + Text1.Width / 2 - Label1.Width / 2
Label1.Top = Text1.Top - Label1.Height - 30
End SubPrivate Sub List1_Click()
Dim myexit As String
Select Case List1.ListIndex
Case 1
setupbackground.Show
Case 2
Toolbar1.Visible = True
Case 3
Toolbar1.Visible = False
Case 6
Frame2.Visible = True
Case 7
myexit = MsgBox("确实想退出吗?", vbExclamation + vbYesNo, "退出")
If myexit = vbYes Then
End
End If
End Select
End SubPrivate Sub MyBlue_Click()
Text1.ForeColor = QBColor(1)
End SubPrivate Sub myclose_Click()
End
End SubPrivate Sub MyRed_Click()
Text1.ForeColor = QBColor(12)
End SubPrivate Sub Option1_Click()
Form1.Picture = LoadPicture("C:\WINDOWS\Web\Wallpaper\Bliss.bmp")
End SubPrivate Sub Option2_Click()
Form1.Picture = LoadPicture()
End SubPrivate Sub scalefont_Click()
Text1.FontSize = 12
End SubPrivate Sub start_Click()
Frame1.Visible = True
End SubPrivate Sub Timer1_Timer()
Label4.Caption = Time
End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim myexit As String
Select Case Button.Key
Case "key1"
Frame2.Visible = True
Case "key2"
myexit = MsgBox("确实想退出吗?", vbYesNo + 48, "退出")
If myexit = vbYes Then
End
End If
Case "key3"
setupbackground.Show
Case "key4"
Text1.FontSize = 12
End Select
End Sub
这是我的一个小程序,其中有你要的东东,你自己看一下吧,希望对你有帮助