Új hozzászólás Aktív témák

• Polyák tag

  #742

  #741 sonar

  2006-12-29 12:09:31

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Polyák

  tag

  #741 sonar

  #741 sonar

  Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
  mentse le ezt a forrást.
  Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
  észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
  és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
  
  üdv sonar
  
  Option Explicit
  Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
  '******************Function Key*******************
  Private Const VK_F1 = &H70
  Private Const VK_F2 = &H71
  Private Const VK_F3 = &H72
  Private Const VK_F4 = &H73
  Private Const VK_F5 = &H74
  Private Const VK_F6 = &H75
  Private Const VK_F7 = &H76
  Private Const VK_F8 = &H77
  Private Const VK_F9 = &H78
  Private Const VK_F10 = &H79
  Private Const VK_F11 = &H7A
  Private Const VK_F12 = &H7B
  
  Private Sub Form_Load()
  Call FunctionClear
  Timer1.Enabled = True
  End Sub
  
  Private Sub Timer1_Timer()
  If GetAsyncKeyState(VK_F1) Then
  Text1 = ''F1'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F2) Then
  Text1 = ''F2'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F3) Then
  Text1 = ''F3'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F4) Then
  Text1 = ''F4'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F5) Then
  Text1 = ''F5'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F6) Then
  Text1 = ''F6'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F7) Then
  Text1 = ''F7'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F8) Then
  Text1 = ''F8'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F9) Then
  Text1 = ''F9'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F10) Then
  Text1 = ''F10'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F11) Then
  Text1 = ''F11'' & vbCrLf & Text1
  ElseIf GetAsyncKeyState(VK_F12) Then
  Text1 = ''F12'' & vbCrLf & Text1
  End If
  End Sub
  
  Public Sub FunctionClear()
  ' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
  ' kiolvasással megszűnik ez a probléma
  
  GetAsyncKeyState (VK_F1)
  GetAsyncKeyState (VK_F2)
  GetAsyncKeyState (VK_F3)
  GetAsyncKeyState (VK_F4)
  GetAsyncKeyState (VK_F5)
  GetAsyncKeyState (VK_F6)
  GetAsyncKeyState (VK_F7)
  GetAsyncKeyState (VK_F8)
  GetAsyncKeyState (VK_F9)
  GetAsyncKeyState (VK_F10)
  GetAsyncKeyState (VK_F11)
  GetAsyncKeyState (VK_F12)
  
  End Sub
  

  Hali sonar!
  
  Köszi! Még jól jöhet!
  
  Lenne egy kérdésem is:
  
  A legtöbb programban lehet nyelvet válsztani. Ezt sok ugy csinlálja hogy van egy pl. hungarian.ini fájl és abban vannak a szavak. Valahogy így:
  
  [Form1]
  SpeedButton4=Beállítás ''L''
  SpeedButton5=Réteg előnézet ''K''
  SpeedButton6=Render ''J''
  SpeedButton11=100
  SpeedButton12=OK
  Label13=100%
  SpeedButton14=Stop
  SpeedButton15=Kijelölés eleje ''F''
  SpeedButton16=Kijelölés vége ''T''
  CheckBox1=Auto előnézet ''U''
  CheckBox3=Auto render
  CheckBox6=Nagyít
  TabSheet1=Effekt
  Label1=Szín:
  Label2=Vastagság 1:
  Label3=Vastagság 2:
  SpeedButton1=...
  Label7=Fényesség:
  Label10=Penge:
  SpeedButton2=...
  Label11=Üres
  Label12=Üres
  Label14=0 ms
  Label25=Elmosás:
  Label26=Ív:
  Label27=Elmosás:
  Label28=Ív:
  CheckBox10=
  CheckBox11=
  ...
  
  Ezt egy program magyar.ini állományából másoltam ki.
  
  Hogyan tudok hivatkozni ezekre a cimkékre? Először ugy probáltam ahogy régebben mondtad nekem.
  Line Input #filenum, sor
  De ez egy sort olvas be. Ha mondjuk a 213.sort akarom előhívni akkor 213x kell előhívnom a parancsot. De ez nem igazán praktikus.
  Hogyan tunék én ezekre a cimkékre hivatkozni?
  
  Remélem te tudod, vagy valaki tudja.
  
  A választ előre is köszi!
  
  [Szerkesztve]

Új hozzászólás Aktív témák