|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
Sujet : piti problemes de controles [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (kyp)
Informations & options pour cette discussion
|
jeudi 11 avril 2002 à 10:59:43 |
piti problemes de controles

kyp
|
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir .... et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form.... derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 11:10:05 |
Re : piti problemes de controles

pimousse75
|
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 11:24:08 |
Re : piti problemes de controles

kyp
|
marchi va essayer
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 11:30:53 |
peut tu m aider encore un ti peu

kyp
|
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 13:26:33 |
Re : peut tu m aider encore un ti peu

Neo.balastik
|
Salut,
Voilà comment désactiver la croix en haut à droite du formulaire:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS) End Sub
'Exemple: KillCloseButton Me.hWnd
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 14:07:38 |
pour neo b

kyp
|
ca ne fonctionne pas chez moi ca me dit "membre de methode ou de données introuvables" sur
Private Sub test_click() KillCloseButton (Me.hWnd) End Sub
peut etre parce ke c du vba ? ------------------------------- Réponse au message : -------------------------------
Salut,
Voilà comment désactiver la croix en haut à droite du formulaire:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS) End Sub
'Exemple: KillCloseButton Me.hWnd
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 14:12:58 |
Re : pour neo b

Neo.balastik
|
Salut,
Pour Excel et Word, le form ne possède pas de propriété Hwnd... Donc c'est foutu pour cette fonction. Il y a certainement moyen via API avec la fonction GetWindow, il faudrait essayer. Les forms d'Access possèdent une propriété Hwnd, donc ca marche pour eux.
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
ca ne fonctionne pas chez moi ca me dit "membre de methode ou de données introuvables" sur
Private Sub test_click() KillCloseButton (Me.hWnd) End Sub
peut etre parce ke c du vba ? ------------------------------- Réponse au message : -------------------------------
Salut,
Voilà comment désactiver la croix en haut à droite du formulaire:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS) End Sub
'Exemple: KillCloseButton Me.hWnd
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 14:19:04 |
Re : pour neo b

Neo.balastik
|
ReSalut,
Si tu es dans Word ou Excel, voilà le code à appliquer:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400& Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub UserForm_Activate() Dim hWnd As Long hWnd = GetActiveWindow KillCloseButton hWnd
End Sub
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long
hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS)
End Sub
'Le croix sera toujours visible mais sera inactive. 'Y a sans doute moyen de la rendre invisible, mais j'ai pondu ce code en toute vitesse, pas le temps de peaufiner.
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
Salut,
Pour Excel et Word, le form ne possède pas de propriété Hwnd... Donc c'est foutu pour cette fonction. Il y a certainement moyen via API avec la fonction GetWindow, il faudrait essayer. Les forms d'Access possèdent une propriété Hwnd, donc ca marche pour eux.
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
ca ne fonctionne pas chez moi ca me dit "membre de methode ou de données introuvables" sur
Private Sub test_click() KillCloseButton (Me.hWnd) End Sub
peut etre parce ke c du vba ? ------------------------------- Réponse au message : -------------------------------
Salut,
Voilà comment désactiver la croix en haut à droite du formulaire:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS) End Sub
'Exemple: KillCloseButton Me.hWnd
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
|
jeudi 11 avril 2002 à 14:55:55 |
excellent merci neobalastik

kyp
|
thhhhx ------------------------------- Réponse au message : -------------------------------
ReSalut,
Si tu es dans Word ou Excel, voilà le code à appliquer:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400& Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub UserForm_Activate() Dim hWnd As Long hWnd = GetActiveWindow KillCloseButton hWnd
End Sub
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long
hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS)
End Sub
'Le croix sera toujours visible mais sera inactive. 'Y a sans doute moyen de la rendre invisible, mais j'ai pondu ce code en toute vitesse, pas le temps de peaufiner.
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
Salut,
Pour Excel et Word, le form ne possède pas de propriété Hwnd... Donc c'est foutu pour cette fonction. Il y a certainement moyen via API avec la fonction GetWindow, il faudrait essayer. Les forms d'Access possèdent une propriété Hwnd, donc ca marche pour eux.
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
ca ne fonctionne pas chez moi ca me dit "membre de methode ou de données introuvables" sur
Private Sub test_click() KillCloseButton (Me.hWnd) End Sub
peut etre parce ke c du vba ? ------------------------------- Réponse au message : -------------------------------
Salut,
Voilà comment désactiver la croix en haut à droite du formulaire:
Private Declare Function GetSystemMenu Lib "user32" _ (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&
Public Sub KillCloseButton(hWnd As Long) Dim hSysMenu As Long hSysMenu = GetSystemMenu(hWnd, 0) Call RemoveMenu(hSysMenu, 6, MF_BYPOS) Call RemoveMenu(hSysMenu, 5, MF_BYPOS) End Sub
'Exemple: KillCloseButton Me.hWnd
Tchao
NéoB
------------------------------- Réponse au message : -------------------------------
en fait le code ke tu m as donné detecte les chiffres et empeche de les entrer..je voudrais justement kon ne puisse entrer ke du chiffre,et ta maniere de faire est tres bien..tu pe me modifier le code pour ca?
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
Pour ta combo choisi le style dropdown list Pour la croix je sais pas trop
Pour ta textbox sur le keypress detecte le code ascii un peu de cette maniere:
If (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 46 And KeyAscii <> 95 And KeyAscii <> 127 And KeyAscii <> 8 And KeyAscii <> 64 Then KeyAscii = vbNull End If
------------------------------- Réponse au message : -------------------------------
comment proteger une combobox?j aimerais ke l utilisateur puise choisir ds la liste ss pouvoir entrer de texte dedans,mais bien sur locked empeche carrement de choisir ....
et comment enlever la croix en haut a dte d une form,pour eviter que l utilisateur ferme la form....
derniere question(j en profite lol),est ce ke on pe limiter ds un controle(genre textbox)le type de données..j aimerais par ex que telel textbox ne puisse contenir que du numerique,donc que ca empeche l entrée de caractere par ex...bien sur cela peut se faire par des test mais c assez lourd je cherchais une solution plus facile...si il n y a que ca j y serais obligé remarquez lool...merci a tous
|
|
|
Cette discussion est classé dans : controles, ke, utilisateur, problemes, piti
Répondre à ce message
Sujets en rapport avec ce message
Problemes avec controles ADO [ par Dom ]
J'ai crée une application de base de données avec des controles ADO qui fonctionne bien sur le pc ou elle à été développée mais pas sur un autre pc.Er
controle utilisateur [ par bousfiha ]
bonjour et merci de lire ma question. mon problème est le suivant: j'ajouté à mon projet des controles d'utilisateur ("mui windows" si jamais vous les
problemes de java ou java script sais plus... [ par princessezalie ]
bonjour, cele fait kelkes jours ke je n'arrive plus a me connécter sur yahoo jeux (dame, ddp, literati etc..) je ne sais plus koi faire , y as-t'il un
Afficher utilisateur en cours [ par flavien44 ]
BonjourJe cherche a faire une base de donnée avec login, ce ke g reussi a faire mai g un souci.J'aimerai afficher l'utilisateur en cours sachant ke je
Propriétés des objets (.Net) [ par Scalpweb ]
Bonjour à tous.J'ai un problème dans un de mes scripts.Mon but est d'enregistrer dans un fichier texte les propriétés des controles présents sur une d
Controle utilisateur [ par alligo ]
Bonjour a tousj'ai créé un controle utilisateur (controle 1) (herité d'un bouton dont j'ai changé la forme). comme j'ai besoin d'enormement de ces con
VBNET et les collections de controles [ par zezern ]
Comment gerer les Index sur .VBNET comme pour VB6
gestion des utilisateurs [ par GrandLynx ]
Bonjour, j'aimerais savoir s'il y en a qui ont des idées sur la meilleure façon de gérer l'accès d'utilisateur à différentes bases en vba.actuellement
Ordre des controles dans un panel sous VB 2008 [ par falain ]
Bonsoir,Je suis en train de migrer une application depuis VB6 vers VB2008. Je remplace donc les controles en groupe (boutons indexes par exemple) par
Redimentionnement des controles lors de la compil [ par paulof2000 ]
Bonjour,j'ai un petit probleme que j'arrive pas a régler.Je veux afficher une image dans une picturebox ,pour des raison de neteter ,je met la proprié
Livres en rapport
|
Téléchargements
Logiciels à télécharger sur le même thème :
|