Option Explicit
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "李白"
Label3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟," _
& Chr(13) & Chr(13) & "遥看瀑布挂前川。" _
& Chr(13) & Chr(13) & "飞流直下三千尺," & _
Chr(13) & Chr(13) & "疑是银河落九天。
Chr(13)是空格的意思,chr(13)&chr(13)是连续空两行的意思
"编写代码时,想要空行的方法是1.按空格2.按住shift同时按住减号3.按enter进行错行
Case "杜甫"
Label3.Caption = "绝句" & Chr(13) & Chr(13) & "两只黄鹂鸣翠柳," _
& Chr(13) & Chr(13) & "一行白鹭上青天。" _
& Chr(13) & Chr(13) & "窗含西岭千秋雪," _
& Chr(13) & Chr(13) & "门泊东吴万里船。"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "李白"
Combo1.AddItem "杜甫"
End Sub
分享到:
相关推荐
VB-Code-教育-学生考试系统-源代码全VB-Code-教育-学生考试系统-源代码全VB-Code-教育-学生考试系统-源代码全VB-Code-教育-学生考试系统-源代码全VB-Code-教育-学生考试系统-源代码全VB-Code-教育-学生考试系统-源...
RTL8211E-VB-CG-原理图参考设计
VB60SP6-KB926857-x86-CHS Microsoft Visual Basic 6.0 Service Pack 6 最新安全汇总更新 截止到2012年4月19日
vb6.0 最新2021年升级补丁,适用 win10 和 win11 系统。
解决mscomctl32.ocx无法添加问题,需要先运行regtlib msdatsrc.tlb 在安装
VB-PowerWrap 通过扫描一个 Visual Basic 的工程文件,并将该工 程所需要的文件进行打包,然后创建一个包含所有必要文件的可执行文件 供程序员发布。VB-PowerWrap 使用了超强的压缩模块,这样可以创建出 最小的 ....
VB----经典小程序设计-猜数字游戏
VB---数据库登录的实例VB---数据库登录的实例VB---数据库登录的实例
VB60SP6-KB2641426-x86-CHS Microsoft Visual Basic 6.0 Service Pack 6 最新累积更新 截止到2012年4月19日
RTL8201F-VB-CG-Realtek
VB----经典小程序设计-贪吃蛇
VB----经典小程序设计-俄罗斯方块
VB----经典小程序设计-扫雷游戏
VB----经典小程序设计-拼图游戏
VB Decompiler Pro v10.0
VB----经典小程序设计-学生成绩管理
vb---server client (socket)
VB6.0 UTF-8转换GB2312函数本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
VB-Open-函数详解
vb.netComboBox-控件的使用.docx