89433_1

Strona: [  >  ]  z  1     










Autor
Temat: skracanie kodu











anonim







Typ:
Nie zarejestrowany




skracanie kodu


jak skrocic np. taki kod:

Private Sub x4a_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub
Private Sub x4b_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub
Private Sub y3a_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub
Private Sub y3b_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub
Private Sub y4a_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub
Private Sub y4b_KeyPress(ascii As Integer)
Select Case ascii
Case 48 To 57, 44, 8
Case Else: ascii = 0
End Select
End Sub

(to tylko maly frgment)

tak aby nie powtarzac ciagle tego samego polecenia







20-12-2004 12:48


  














marcin_an

Forumowicz






Typ:
neutral

Postów: 1265

Zarejestrowany: Mar 2004







Użyj tablicy kontrolek. Zamiast nadawać im kolejne nazwy - nadaj jedną nazwę wszystkim tym kontrolkom i tylko niech indeksy będą różne. Wtedy jedna procedura będzie obsługiwała wszystkie.



_____________________________________________
Popieram losmaca:
1) Ludzie, dbajcie o polszczyznę!!! 
2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!!
___
NOWE FORUM






20-12-2004 13:41



 
    














losmac

"profesorek"






Typ:
neutral

Postów: 758

Zarejestrowany: May 2003





...lub...


napisz dodatkową funkcję

Function MojeKeyPress(keyKod As Integer) As Integer
Select Case keyKod
  Case 48 To 57, 44, 8
      MojeKeyPress = keyKod
  Case Else
      MojeKeyPress = 0
End Select
End Function

A w procedurze zdarzenia naciśnięcia na klawisz

Private Sub x4a_KeyPress(ascii As Integer)
  ascii = MojeKeyPress(ascii)
End Sub


Sposobów jest wiele...



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś






20-12-2004 19:26



 
    













Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20










Strona: [  >  ]  z  1     

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

teen-mushing.xlx.pl