Discussion :

[toufiq]

Bonjour les amis,

Je suis actuellement en train de développer un logiciel qui doit rester en plein écran, j'ai besoin, pour son bon fonctionnement d'avoir un pavé numérique visuel, mais il se ne tient pas en place selon l'écran sur lequel le programme est exécuté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Text += "1"
        TextBox1.Text += "1"
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button2.Text += "2"
        TextBox1.Text += "2"
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Button3.Text += "3"
        TextBox1.Text += "3"
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Button4.Text += "4"
        TextBox1.Text += "4"
 
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Button5.Text += "5"
        TextBox1.Text += "5"
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Button6.Text += "6"
        TextBox1.Text += "6"
    End Sub
 
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Button8.Text += "8"
        TextBox1.Text += "8"
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Button9.Text += "9"
        TextBox1.Text += "9"
    End Sub
 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Button10.Text += "0"
        TextBox1.Text += "0"
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Button7.Text += "7"
        TextBox1.Text += "7"
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Button12.Text = ""
        TextBox1.Clear()
 
    End Sub

[GavrocheNET]

Salut,

Techniquement, en te débrouillant avec les propriétés Anchor, tu peux fixer tes boutons,

Sinon joue avec la taille de ta forme et de tes boutons en fonction des positions que tu veux leurs donner.