vb 题目,懂的进
来源:百度知道 编辑:UC知道 时间:2024/09/21 19:36:14
我以《静夜思》为例,在窗体上放一个用来显示此唐诗的标签,和一个命令按钮。
单击命令按钮显示唐诗的代码如下:
Private Sub Command1_Click()
Label1.Caption = " 静夜思" & Chr(13) & "床前明月光" & Chr(13) & "疑是地上霜" & Chr(13) & "举头望明月" & Chr(13) & "低头思故乡"
End Sub
(其中 chr(13) 是换行用的。)
鼠标经过标签时,隐藏唐诗的代码(因为是隐藏唐诗,所以不是将label1.visible设为false,而是将label1.caption属性设为空),代码如下:
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = ""
End Sub
窗体加载图片的代码放在form_load()中即可(也可以放入picturebox中,但没有必要那样复杂了:)
Private Sub Form_Load()
Form1.Picture = LoadPicture("路径及文件名")
End Sub
此程序我在VB中运行,能实现楼主想要的功能。
(如果将标签的背景设为透明的,将是非常美的唐诗欣赏了:)
看不到图:(
简单的,比如你古诗放在一个picturebox上或者textbox上显示,然后隐藏的标签是label。可以通过写label的mouse move hover,就是鼠标在上面移动的事件。
Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.Even