|
分類:[.NET 全般]
たびたびお世話になっております。
またよろしくお願いします
今、時計を時計を作っているのですが
時以外を透明化をしたいのですがどうすればできるのでしょうか?
ublic Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
' 現在の日付を取得する
Dim dtToday As DateTime = DateTime.Today
'現在の日時を表示
Label1.Text = (Now.ToString())
' 必要な変数を宣言する
Dim dtNow As DateTime = DateTime.Now
' 分 (Minute) を取得する
Dim iMinute As Integer = dtNow.Minute
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' 終了閉じる
End
End Sub
End Class
|