Strona: [  << <   1   > >>  ]  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.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

20-12-2004 13:41
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1