برابر کردن Picture1.Width با MSFlexGrid1.ColWidth

[Hassan2500]

سلام

از دوستان یه کد میخوام که Picture1.Width برابر با MSFlexGrid1.ColWidth شود یعنی مثلاً اگر VSFlexGrid1.Cols = 1 بود Picture1.Width برابر با (0)MSFlexGrid1.ColWidth شود اگر دوتا بود برابر با دوتا شود یا بیشتر اگر بود

در ضمن چه کدی باید نوشته شود که وقتی CTRL + A رو زدم کل متن تکست1 انتخاب شود

[SlowCode]

از دوستان یه کد میخوام که Picture1.Width برابر با MSFlexGrid1.ColWidth شود یعنی مثلاً اگر VSFlexGrid1.Cols = 1 بود Picture1.Width برابر با (0)MSFlexGrid1.ColWidth شود اگر دوتا بود برابر با دوتا شود یا بیشتر اگر بود
سلام، اين كد تعداد ستون ها رو ضرب در اندازه ستون اول ميكنه:
Picture1.Width = MSFlexGrid1.ColWidth(0) * MSFlexGrid1.Cols

ولي اگه اندازشون متفاوت باشه بايد يكي يكي اندازشون رو دربياري و مجمعشون رو حساب كني، يعني اينطوري:
Picture1.Width = 0
For i = 0 To MSFlexGrid1.Cols - 1
Picture1.Width = Picture1.Width + MSFlexGrid1.ColWidth(i)
Next



در ضمن چه کدی باید نوشته شود که وقتی CTRL + A رو زدم کل متن تکست1 انتخاب شود
بفرما:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyA Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub