درخواست راهنمایی برای ساختن جدول

[samiasoft]

سلام و عرض ادب

میخواستم بدونم برای ساختن جدولی به شکل زیر ایا باید از کامپونتی استفاده کرد؟اگر کامپیونت خاصی هست معرفی کنین

اگر سورسی در این زمینه بود مممنون میشوم فرار بدین

http://www.barnameha.com/img/Raya_Jadval.png

[SlowCode]

سلام
نخیر کامپوننتی نداره! شما خودت باید بشینی و بنویسی.
البته کار سختی نیست نسبتا جالب هم هست.
به جای اون خانه ها از تکست باکس استفاده کن و ماکسیمم کاراکتر رو هم رو 1 بزار.

[mmssoft]

فکر کنم خاصیت Appearance رو باید روی Flat قرار بدید...

[vbhamed]

سلام
البته به نظر من اگر از كامپوننت ComponentOne vsFlexGrid استفاده كني خيلي كارت راحت تر ميشه

[mmssoft]

سلام
البته به نظر من اگر از كامپوننت ComponentOne vsFlexGrid استفاده كني خيلي كارت راحت تر ميشه

آره، دقیقا همین طور هست؛ ولی هر چی تو برنامه از کامپوننت های مختلف کمتر استفاده بشه و بیشتر کارها با کد نویسی توسط برنامه نویسی انجام بشه، ارزش برنامه بالاتر میره...

[samiasoft]

یه سوالی داشتم اونم اینکه به فرض اگر n تا تکست باکس و یک لیبل داشته باشیم چگونه میتوان هنگامی که روی لیبل کلیک میکنم تکست باکسی که اشاره گر متن داخل ان هست مثلا رنگش سیاه بشه؟

[mmssoft]

یه سوالی داشتم اونم اینکه به فرض اگر n تا تکست باکس و یک لیبل داشته باشیم چگونه میتوان هنگامی که روی لیبل کلیک میکنم تکست باکسی که اشاره گر متن داخل ان هست مثلا رنگش سیاه بشه؟

خوب وقتی روی Label کلیک میشه دیگه فوکس از روی TextBox برداشته میشه! نمیشه گفت اونی که اشاره گر متن داخلش هست رو مثلا سیاه کرد!!

[miladatashin]

خوب وقتی روی Label کلیک میشه دیگه فوکس از روی TextBox برداشته میشه! نمیشه گفت اونی که اشاره گر متن داخلش هست رو مثلا سیاه کرد!!
نه اینجوری نیست. با کلیک روی لیبل فوکس تغیری نمیکنه

[miladatashin]

یه سوالی داشتم اونم اینکه به فرض اگر n تا تکست باکس و یک لیبل داشته باشیم چگونه میتوان هنگامی که روی لیبل کلیک میکنم تکست باکسی که اشاره گر متن داخل ان هست مثلا رنگش سیاه بشه؟
برای این کار میتونید از روش های مختلفی اشتفاده کنید. مثلا میتونید با api تکست باکس که فوکس داره رو تشخیص بدین یا میتونید تو رویداد GotFocus تکست باکس ها (فکر کنم نظرتون اینه که آرایه باشه) ایندکس تکست باکس رو ذخیره کنید و بعد موقع کلیک رو لیبل استفاده کنید

[miladatashin]

یک کد خیلی کوتاه به عنوان نمونه با فرض اینکه تکست باکس ها آرایه هستند.

Dim SelectedTxtBox As Object

Private Sub Label1_Click()
SelectedTxtBox.BackColor = vbBlack
End Sub

Private Sub Text1_GotFocus(Index As Integer)
Set SelectedTxtBox = Text1(Index)
End Sub

[samiasoft]

یک کد خیلی کوتاه به عنوان نمونه با فرض اینکه تکست باکس ها آرایه هستند.

Dim SelectedTxtBox As Object

Private Sub Label1_Click()
SelectedTxtBox.BackColor = vbBlack
End Sub

Private Sub Text1_GotFocus(Index As Integer)
Set SelectedTxtBox = Text1(Index)
End Sub


حال اگر بخوام این تغییرات رنگ را در یک فایل متنی ذخیره کنم باید به چه صورتی عمل کنم؟

برای ذخیره حروف جدول اینطور عمل کرده ام
For i = 1 To frmCrosswordSolver.txtText.UBound
Print #intFF, "con " & i & " " & frmCrosswordSolver.txtText(i).Text
Next i

و برای لود ان

Case "CON":
'Syntax: con x z
'Desc: txtText(x).text = z
If UBound(strWord) >= 3 Then
frmCrosswordSolver.txtText(strWord(2)).Text = strWord(3)
End If


خب من همین کار رو انجام دادم برای ذخیره رنگها
'print color
For i = 1 To frmCrosswordSolver.txtText.UBound
Print #intFF, "com " & i & " " & frmCrosswordSolver.txtText(i).BackColor
Next i


که ذخیره اش مشکلی نداره ولی برای نوشتن کد لود مثل کد لود متن حروف جدول نمیدونم چگونه عمل کنم!

[samiasoft]

دوستان اگر امکانش هست مرا در ذخیره تغییرات رنگ خانه های جدول کمک کنین هرکاری میکنم تغییرات مورد نظر ذخیره نمیشه

[samiasoft]

اخرش درستش کردم

Case "COM":
If UBound(strWord) >= 0 Then
frmCrosswordSolver.txtText(strWord(2)).BackColor = strWord(3)
End If