vb 题目，懂的进

来源：百度知道 编辑：UC知道 时间：2024/06/15 11:02:16
窗体中有一个标签和一个命令，并在窗体加载一副图片如上图。标签内显示是一首古诗，程序运行时，单击“显示”命令按钮，显示出一首古诗，鼠标移动到标签，将“古诗”隐藏！请问一下 鼠标移动到标签，怎样将“古诗”隐藏！代码是什么？

我以《静夜思》为例,在窗体上放一个用来显示此唐诗的标签，和一个命令按钮。
单击命令按钮显示唐诗的代码如下：

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