Question

谁能替我写一个vb代码···很简单的那种，必须要有图片上按钮的功能，邮箱450218996@qq.com 很急！！！！

Answer 1

（难道这是在捡分？）

Option Explicit

Private Sub cmd放大_Click()

   Text1.FontSize = Text1.FontSize + 1

End Sub

Private Sub cmd缩小_Click()

   If Text1.FontSize > 1 Then Text1.FontSize = Text1.FontSize - 1

End Sub

Private Sub cmd倾斜_Click()

   Text1.FontItalic = True

End Sub

Private Sub cmd删除线_Click()

   Text1.FontStrikethru = True

End Sub

Private Sub cmd退出_Click()

   Unload Me

End Sub

Answer 2

控件 控件名称
textbox text1
commandbutton1 放大
commandbutton2 缩小
commandbutton3 倾斜
commandbutton4 删除线
commandbutton5 退出

'[下面是代码]::
'---------------------------------------------
Private Sub Command1_Click()
Text1.FontSize = 20
Text1.FontBold = True
End Sub

Private Sub Command2_Click()
Text1.FontBold = False
Text1.FontSize = 6
End Sub

Private Sub Command3_Click()
Text1.FontItalic = True
End Sub

Private Sub Command4_Click()
Text1.FontStrikethru = True
End Sub

Private Sub Command5_Click()
End
End Sub

Answer 3

已发送至邮件

追问

你能把你的代码也发给我吗？我们现在正在上这个课程····谢谢啦 加分

追答

在附件中，请查收！

追问

可我怎么打不开啊？

追答

压缩包 解压 即可 电脑如果没有按照VB也是打不开的 里头有一个 exe文件 能打开

追问

哦。。。。谢谢啦