Problème avec la taille d'une fenetre...
Psyc0x57x
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, ou bonsoir !
Donc mon petit problème ^^, on doit créer l'algorithme nous permettant de faire des matrices comme on le souhaite..
Et pourtant jusque la tout va bien.
Mais mon souci est que, j'aimerais adapter la taille de la fenêtre comportant la matrice en fonction de la matrice.
Par exemple si j'ai 13 ligne et 3 colonnes ne pas m'afficher quelque chose de minuscule pour ensuite être obligé de l'agrandir :/
Merci de votre aide j'ai déjà essayer des choses du genre:
Private Sub Form_Load()
Dim LigneA As Integer, colonneA As Integer, Nbrligne As Integer
LigneA = Matrice.txt_ligneA.Text
colonneA = Matrice.txt_colonneA.Text
For i = 2 To (LigneA * colonneA)
Nbrligne = Nbrligne + 1
Load TxtA(i)
If Nbrligne = LigneA Then
TxtA(i).Top = TxtA(1).Top
TxtA(i).Left = TxtA(i - 1).Left + TxtA(i).Width + 50
Nbrligne = 0
Else
TxtA(i).Top = TxtA(i - 1).Top + TxtA(i).Height + 50
TxtA(i).Left = TxtA(i - 1).Left
End If
TxtA(i).Visible = True
Next i
MatriceA.Width = TxtA(Matrice.txt_colonneA).Top + 50
MatriceA.Height = TxtA(Matrice.txt_ligneB).Left + 50
End Sub
Mais rien n'y fait j'y arrive pas ^^'..
Merci de votre aide ! Bonne journée ou bonne soirée :)
Donc mon petit problème ^^, on doit créer l'algorithme nous permettant de faire des matrices comme on le souhaite..
Et pourtant jusque la tout va bien.
Mais mon souci est que, j'aimerais adapter la taille de la fenêtre comportant la matrice en fonction de la matrice.
Par exemple si j'ai 13 ligne et 3 colonnes ne pas m'afficher quelque chose de minuscule pour ensuite être obligé de l'agrandir :/
Merci de votre aide j'ai déjà essayer des choses du genre:
Private Sub Form_Load()
Dim LigneA As Integer, colonneA As Integer, Nbrligne As Integer
LigneA = Matrice.txt_ligneA.Text
colonneA = Matrice.txt_colonneA.Text
For i = 2 To (LigneA * colonneA)
Nbrligne = Nbrligne + 1
Load TxtA(i)
If Nbrligne = LigneA Then
TxtA(i).Top = TxtA(1).Top
TxtA(i).Left = TxtA(i - 1).Left + TxtA(i).Width + 50
Nbrligne = 0
Else
TxtA(i).Top = TxtA(i - 1).Top + TxtA(i).Height + 50
TxtA(i).Left = TxtA(i - 1).Left
End If
TxtA(i).Visible = True
Next i
MatriceA.Width = TxtA(Matrice.txt_colonneA).Top + 50
MatriceA.Height = TxtA(Matrice.txt_ligneB).Left + 50
End Sub
Mais rien n'y fait j'y arrive pas ^^'..
Merci de votre aide ! Bonne journée ou bonne soirée :)
A voir également:
- Problème avec la taille d'une fenetre...
- Comment réduire la taille d'un fichier - Guide
- Comment reduire la taille d'une photo - Guide
- Fenetre windows - Guide
- Fenêtre hors écran windows 11 - Guide
- Afficher taille dossier windows - Guide