Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Błąd
An00n




Typ: neutral
Postów: 3
Zarejestrowany: Jan 2003
Błąd

Witam! Nie zna się na VB i nie wiem co zrobić, jak mi wyskakuje błąd: Invalid Atribute in Sub or Function, kiedy ustawiam zmienną na Private albo Public. Wiem co oznacza, ale jak zrobić, żeby all było ok??


_____________________________________________
MTFBWY

31-01-2003 15:52
Pokaż profil An00n  Wyślij email do An00n   Odwiedź stronę An00n       4986370
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Podaj przykład konkretnego kodu w którym ci wyskakuje taki błąd. Wtedy lepiej będzie poprawić błąd.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

31-01-2003 15:59
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
An00n




Typ: neutral
Postów: 3
Zarejestrowany: Jan 2003
To jest kod

Kod programu:
Private Sub Command1_Click()

End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdPrzemek_Click()
tmrCzas.Enabled = True
cmdPrzemek.Enabled = False
Stary_czas = Time
Czasdu = ""
End Sub

Private Sub cmdRadek_Click()
cmdRadek.Enabled = False
Stary_czas = Time
Czasdu = ""
tmrCzas.Enabled = True
End Sub
Private Sub Form_Load()
lblCzass.Caption = "Czas spędzony przed komputerem przez ostatnia osobę:"
lblRczas.Caption = "Aktualny Czas przed komputerem:"
lblCzas.Caption = "Aktualny Czas:"
Static Czas As String
Static Czasdu As String
Private Stary_czas As String
End Sub
Private Sub tmrCzas_Timer()
Czas = Time
Czasdu = DateDiff(n, Stary_czas, Czas)
lblRczas.Caption = lblRczas.Caption & Czasdu & "minut(a)"
lblCzas.Caption = lblCzas.Caption & Czas

End Sub
Private Sub Label3_Click()

End Sub

błąd jest w liniiPrivate Stary_czas As String



_____________________________________________
MTFBWY

31-01-2003 20:28
Pokaż profil An00n  Wyślij email do An00n   Odwiedź stronę An00n       4986370
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Aha ! Wiem co jest źle. Linie Private Stary_czas As String Należy przenieść na sam początek kodu formy. Nie można jej wpisywać Private w środku jakiejś procedury. Czyli twój kod programu powinien wyglądać tak:

Private Stary_czas As String
Private Sub Command1_Click()

End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdPrzemek_Click()
tmrCzas.Enabled = True
cmdPrzemek.Enabled = False
Stary_czas = Time
Czasdu = ""
End Sub

Private Sub cmdRadek_Click()
cmdRadek.Enabled = False
Stary_czas = Time
Czasdu = ""
tmrCzas.Enabled = True
End Sub
Private Sub Form_Load()
lblCzass.Caption = "Czas spędzony przed komputerem przez ostatnia osobę:"
lblRczas.Caption = "Aktualny Czas przed komputerem:"
lblCzas.Caption = "Aktualny Czas:"
Static Czas As String
Static Czasdu As String

End Sub
Private Sub tmrCzas_Timer()
Czas = Time
Czasdu = DateDiff(n, Stary_czas, Czas)
lblRczas.Caption = lblRczas.Caption & Czasdu & "minut(a)"
lblCzas.Caption = lblCzas.Caption & Czas

End Sub
Private Sub Label3_Click()

End Sub


[Post edytowany dnia 31-01-2003 20:34 przez Chudy]


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

31-01-2003 20:32
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
An00n




Typ: neutral
Postów: 3
Zarejestrowany: Jan 2003
Dziękuję

THX )))))))))))) już mi działa


_____________________________________________
MTFBWY

31-01-2003 22:25
Pokaż profil An00n  Wyślij email do An00n   Odwiedź stronę An00n       4986370
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1