לפני שמתקיפים אותי, ניסיתי לחפש אבל החיפוש לא עובד לי משום מה..

אני רוצה לעשות דבר כזה- יש מספר אפשרויות של צבעים בקומבו-בוקס, אני צריך שלמשל אני אבחר צבע שחור, שהוא באינדקס מספר 1, אז הצבע רקע של הפורם השני, כאשר אני אפתח אותו יהיה שחור... מה הפקודה שאני צריך להכניס בLOAD_FORM כדי שזה יקרה? תודה מראש..

בברכה, אורן.

טוב לא חשוב נראה לי שאתה עושה!!!

קוד:

  combo1.color = red 

אבל אני לא בטוח בכלל אבל משהו בסגנון אם אל תכעסו עליי אני מתחיל!!!

https://2006-uploaded.fresh.co.il/2...21/96515068.swf

תסתכלו זה יפה....!!!!

☻☻

חחח אין מצב בחיים...
אבל תודה על הנסיון..
תגובה אחרת מישו?

בברכה, אורן.

סליחה אחיי

https://2006-uploaded.fresh.co.il/2...21/96515068.swf

תסתכלו זה יפה....!!!!

☻☻

הטופס הראשון שממנו פותחים את הטופס השני:

קוד:

Private Sub Form_Load()
Combo1.AddItem "Black"
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub

הטופס השני שמקבל את צבע הרקע מה combobox:

קוד:

Private Sub Form_Load()
If Form1.Combo1 = "Black" Then
    Form2.BackColor = Black
End If
End Sub

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. -Rick Cook

אוי, עובד מצויין.. ניסיתי לעשות ככה, מוזר שלא עבד:

קוד:

 
If Form1.cboBack.ListIndex = 1 Then
Form2.BackColor = black
End If

 

יש לך מושג למה זה לא עבד לי?..

ותודה רבה, עזרת לי מאוד.

*עריכה-

עכשיו המשכתי את הרעיון, אבל זה מציג לי רקעים רק בצבע שחור.. לא מבין מה הבעיה :S

קוד:

If Form1.cboBack = "black" Then
Form2.BackColor = black
ElseIf Form1.cboBack = "blue" Then
Form2.BackColor = blue
ElseIf Form1.cboBack = "green" Then
Form2.BackColor = green
End If

בברכה, אורן.

בעע לא יכלתי לערוך שוב..
מסתבר שהדבר הזה עובד רק עם שחור מכיוון שזוהי ברירת המחדל בVB.. צריך לפעול בצורה הזאת-

קוד:

x = Val(Form1.cboBack.ListIndex)
Form2.BackColor = QBColor(x)

כאשר X הוא משתנה מסוג INT

בברכה, אורן.