jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 24 févr. 2007 à 22:11
Ouais...
Bon, ceci ne devant pas arriver, celà peut vouloir dire des quantités de choses que nous ne pouvons pas deviner, à commencer par les noms de baptème de tes contrôles, les propriétés que tu leur a données et la Form dans laquelle ils se trouvent.
Ne faisons pas durer ce jeu de devinettes, alors...
Veux-tu bien, s'il te plait, mettre ici un lien vers un zip de ton appli ?
mimosa803
Messages postés345Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention24 avril 2010 24 févr. 2007 à 21:47
jai deux formes , je veux que lorsque je passe de la 1er à la deuxième ,qui contient un textbox pour écrire un nom(par défaut ilya : entrer votre nom).je ve que textbox s'efface lorsque la zone texte recoit le focus c a d lorsque je clique sur cette zone elle sera éffacé et non pas elle s'efface automatiquement en passant d'une forme à l'otre
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 24 févr. 2007 à 21:52
Mais si ta textbox est la 1ère à recevoir le focus, elle s'effacera alors au GotFocus, c'est sur !
Dans ce cas, ce n'est pas au GotFocus qu'il convient de l'effacer, mais au click !
Même code que plus haut, mais dans l'événement click de ta textbox, pardi
Mais gaffe, alors : tu effaceras en effet tout à chaque click.
Autre solution, donner le focus à un autre contrôle que ta textbox quand tu entres dans la firm qui le contient et laisser alors le code dans l'événement GotFocus.
mimosa803
Messages postés345Date d'inscriptionjeudi 15 février 2007StatutMembreDernière intervention24 avril 2010 24 févr. 2007 à 22:01
jai un problème voici le code de ma forme:
Option Explicit
Dim m, t As String
Dim r, g
Dim cas As Boolean
Dim Index, k, z As Integer
Private Sub form1_load()
Labeldate.Caption = Date
End Sub
Private Sub cmdexit_Click()
m = "Voulez-vous vraiment quitter l'application ?"
t = "application gestion des etudiant"
r = MsgBox(m, vbYesNo + vbQuestion, t)
If r = vbYes Then
End
End If
End Sub
Private Sub cmdreturn_Click()
Form2.Show
End Sub
Private Sub Labeldate_Click()
Labeldate.Caption = Date
End Sub
Private Sub Textcin_Click()//il affiche une erreur ("la déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de meme nom");
Textcin.Text = ""
End Sub //par contre cette procedure marche dans une autre forme
Private Sub Timer1_Timer()
Labeltime.Caption = Time
End Sub
Private Sub Timer2_Timer()
If Label3.Left < 15000 Then
Label3.Left = Label3.Left + 50
Else
Label3.Left = -200
End If
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 24 févr. 2007 à 22:22
Pas mal !
J'espère que ta textbox n'est pas aussi innaccesible que ce lien !
Passe moins de temps à le rebaptiser et plus à faire attention !
Pour ton information, voici ton "lien redébaptisé" :
http://www.vbfrance.com/mino_musica@hotmail.com