lblTip.Caption = ""
If Weekday(Now, vbSunday) = 2 Then
lblTip.Caption = "今天是周一" & vbCrLf & "精煉崗位：請進行篩網和除鐵器檢查!需要半成品取樣"
End If
If Weekday(Now, vbSunday) = 6 Then
lblTip.Caption = "今天是周五" & vbCrLf & "需要半成品取樣!"
End If
我想把這個彈出來的“需要半成品取樣”做成超級鏈接，誰能幫忙指點一下需要怎么寫。
uj5u.com熱心網友回復：
把你的 Label 控制元件分成兩個，需要做成超級鏈接的單獨一個，與另一個銜接好。假定用于超級鏈接的是 Lable1：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
Label1.ForeColor = vbBlack
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
Label1.ForeColor = vbBlue
End Sub
這樣，當滑鼠移到它上面，它就顯示得像一個超級鏈接。
然后，寫一段 Label1_Click 代碼去執行打開需要鏈接的網站等操作。
uj5u.com熱心網友回復：
1、設定label的滑鼠為99，選一個手的圖示。2、在label的單擊事件中，打開網址。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/60940.html
標籤：VB基礎類
上一篇：怎么根據通訊協議用vb編個程式呀
下一篇：VB數學公式的顯示問題