Changer de focus via les flêches de direction
Des idées ? Car la je m'arraches les cheveux devant les milliers de "solutions" que j'ai cru avoir trouvé mais en vain ....
Je ne suis pas informaticien, ma passion c'est surment pas de coder. Ca fait partie de mes cours, je SUBIT.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questioncomment tu l'as créé, que ce soit via l'IDE ou dynamiquement
ucfoutu : VB6, Textbox créées via un code de génération donc dynamiquement
Private Sub Form_Load()
Dim i As Integer
Dim l As Integer
Dim z As Integer
Dim top0 As Integer
Me.Height = 8850
Me.Width = 10950
z = 9
Me.box(0).Visible = False
top0 = 500
For l = 1 To 9
For i = 1 To 9
Load Me.box((i + l * z) - 9)
box((i + l * z) - 9).Top = top0
box((i + l * z) - 9).Left = box(0).Left + i * box(0).Width
box((i + l * z) - 9).Width = box(0).Width
box((i + l * z) - 9).Visible = True
Next
top0 = top0 + box(0).Width
Next
Me.aide.Text = " Saisissez votre grille puis validez."
Me.bpverif.Enabled = False
Me.sauvegarder.Enabled = False
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim l As Integer
Dim z As Integer
Dim top0 As Integer
Me.Height = 8850
Me.Width = 10950
z = 9
Me.box(0).Visible = False
top0 = 500
For l = 1 To 9
For i = 1 To 9
Load Me.box((i + l * z) - 9)
box((i + l * z) - 9).Top = top0
box((i + l * z) - 9).Left = box(0).Left + i * box(0).Width
box((i + l * z) - 9).Width = box(0).Width
box((i + l * z) - 9).Visible = True
Next
top0 = top0 + box(0).Width
Next
Me.aide.Text = " Saisissez votre grille puis validez."
Me.bpverif.Enabled = False
Me.sauvegarder.Enabled = False
End Sub
Private
Me.Height = 8850
Me.Width = 10950
z = 9
Me.box(0).Visible = False
Me.aide.Text = " Saisissez votre grille puis validez."
Me.bpverif.Enabled = False
Me.sauvegarder.Enabled = False
Me.
Sub Form_Load() Dim i As Byte Dim x As Integer Dim y As Integer x = 0 y = 10 For i = 1 To 81 Load Text1(i) Text1(i).Left = (Text1(0).Width * x) + 5 Text1(i).Top = y Text1(i) = Format(i, "00") Text1(i).Visible = True x = x + 1 If x = 9 Then x = 0 y = y + Text1(0).Height End If Next i End Sub Sub Form_Activate(): Text1(1).SetFocus: End Sub Sub text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 37 ' left Select Case Index Case 1, 10, 19, 28, 37, 46, 55, 64, 73: Text1(Index + 8).SetFocus Case Else: Text1(Index - 1).SetFocus End Select Case 38 ' up If Index < 10 Then Text1(Index + 72).SetFocus If Index > 9 Then Text1(Index - 9).SetFocus Case 39 ' right If Index Mod 9 = 0 Then Text1(Index - 8).SetFocus If Index Mod 9 <> 0 Then Text1(Index + 1).SetFocus Case 40 ' down If Index < 73 Then Text1(Index + 9).SetFocus If Index > 72 Then Text1(Index - 72).SetFocus End Select End Sub
et surtout, je peux les expliquer ( choses que j'aurais a faire a l'oral en janvier)...