VB6 combo et text

الموضوع في 'لغات البرمجة' بواسطة wertani, بتاريخ ‏13 فيفري 2008.

  1. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      13-02-2008 10:30
    الرجاء لخبراء البرمجة
    je veux remplir un text a partir d'un combobox exemple lorsque je selection un code de combo le text1.text affiche automatiquement le nom de ce code
    le langage vb 6.0

    مع الشكر
     
  2. programmeur

    programmeur كبار الشخصيات

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    330
      13-02-2008 21:54
    كود (text):


    text1.text = Combo.Text
    form1.refrech

     
     
  3. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      14-02-2008 17:04
    شكرا على الرد ولكن ساعطيك مثال كاملا
    combo1 , text 1 apartient a la meme table login
    combo1 ------>Id-utilisateur
    text1-------->Nom_utilisateur
    lorsque je selectione l'id de utilisateur a partir de liste deroulent de combobox le textbox affiche automatiquement le nom d'utilisateur
    lorsque je choisi 01 de combo le text affiche ali
    et merci bien
     
  4. SATCOM

    SATCOM المدير العام طاقم الإدارة

    إنضم إلينا في:
    ‏16 نوفمبر 2005
    المشاركات:
    38.224
    الإعجابات المتلقاة:
    33.884
      14-02-2008 17:11
    Ou est-ce que tu stocke 01 et ali
     
    1 person likes this.
  5. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      15-02-2008 09:39
    voici l'exemple monsieur
     

    الملفات المرفقة:

    • tunisia.jpg
      tunisia.jpg
      حجم الملف:
      47,2 ك. ب
      المشاهدات:
      16
  6. programmeur

    programmeur كبار الشخصيات

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    330
      15-02-2008 23:39
    tu doit avoir une base de donner alors

    tu as ca?

    passe moi ta forme et la base et je ferais ce que tu veux
     
  7. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      16-02-2008 08:39
    voici monsieur mon base avec le form

    Merci bien
     

    الملفات المرفقة:

  8. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      19-02-2008 10:20
    aider moi svp:oh:
     
  9. loulou

    loulou نجم المنتدى

    إنضم إلينا في:
    ‏20 نوفمبر 2005
    المشاركات:
    1.530
    الإعجابات المتلقاة:
    617
      19-02-2008 18:07
    J'ai jamais travaillé avec les adodc, mais ca ca marche

    كود (text):

    Private Sub Combo1_Click()
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.Move (Combo1.ListIndex)
    Text1.Text = Adodc1.Recordset.Fields(0) & ""
    End Sub

     
    et tu supprime la

    كود (text):

    Adodc1.Recordset.Close
     
     
  10. wertani

    wertani عضو نشيط

    إنضم إلينا في:
    ‏6 مارس 2007
    المشاركات:
    273
    الإعجابات المتلقاة:
    73
      20-02-2008 10:34
    Monsieur voila normalment le code

    Private Sub Combo1_Click()
    If combo1.ListIndex = -1 Then Exit Sub
    text1.Text = Combo1.ItemData(combo1.ListIndex)
    End Sub

    Private Sub text1_Click()
    text1.Text = combo1.ItemData(combo1.ListIndex)
    End Sub

    mais il le manque une fonction ou module de remplissage
    je cherche au moin un code source d'apllication avec le meme astuces:satelite:
    merci de votre aide

    http://www.tunisia-sat.com/vb/images/super_smilies/satelite.gif
    :satelite:
     
جاري تحميل الصفحة...

مشاركة هذه الصفحة

جاري تحميل الصفحة...