1– رەسىم

2–رەسىم

ئىلكتىرونلۇق سائەت ياساش
–––––––––تەييارلايدىغان ماتىرىياللار–––––––––

1– from دىن 1 تال
2– module1  دىن 1 تال
3– Timer دىن 1 تال
4– Label دىن 16 تال
––––––––––––––– تەييارلاپ قۇيۇلغان كود––––––––––––––––
-------------------------- module1  دىن بىرنى قۇرۇپ توۋەندىكى كودنى يىزىڭ---------------------------

• Public Declare Function ReleaseCapture Lib "user32" () As Long
  Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal
• wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  Public Const HTCAPTION = 2
  Public Const WM_NCLBUTTONDOWN = &HA1

----------------------  from دىن بىرنى قۇرۇپ ئىچىگە  Label دىن 16 ئەكىرىپ توۋەندىكى كودنى يىزىڭ-------------

• Private Sub Label15_Click()
  End
• End Sub
• Private Sub Label16_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    ReleaseCapture
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  End If
  End Sub
• Private Sub Timer1_Timer()
  If Hour(Time) < 10 Then Label1.Caption = "0" Else Label1.Caption = Left(Hour(Time), 1)
  Label2.Caption = Right(Hour(Time), 1)
  If Minute(Time) < 10 Then Label4.Caption = "0" Else Label4.Caption = Left(Minute(Time), 1)
  Label5.Caption = Right(Minute(Time), 1)
  If Second(Time) < 10 Then Label7.Caption = "0" Else Label7.Caption = Left(Second(Time), 1)
  Label8.Caption = Right(Second(Time), 1)
  '*****************日 *****************
  If Day(Date) < 10 Then _
  Label9.Caption = 0 & Day(Date)
  If Day(Date) > 10 Then _
  Label9.Caption = Day(Date)
  '*****************月*****************
  If Month(Date) < 10 Then _
  Label10.Caption = 0 & Month(Date)
  If Month(Date) > 10 Then _
  Label10.Caption = Month(Date)
  '*****************年*****************
  Label11.Caption = Year(Date)
  ziua = Weekday(Date, vbMonday)
  If ziua = 1 Then Label14.Caption = "周一"
  If ziua = 2 Then Label14.Caption = "周二"
  If ziua = 3 Then Label14.Caption = "周三"
  If ziua = 4 Then Label14.Caption = "周四"
  If ziua = 5 Then Label14.Caption = "周五"
  If ziua = 6 Then Label14.Caption = "周六"
  If ziua = 7 Then Label14.Caption = "周末"
• End Sub

----------------------------------------------------------

كۆچۈرۈپ تارقاتماقچى بولسىڭىز مەنبەنى ئەسكەرتىڭ
مەنبە : ئەقىللىق بلوگى

 چۇشەنمىگەن يەربولسا ئىنكاس قالدۇرۇق
  بىۋاستە كودنى چۇشۇرۇش سىناپ باقىمەن