استخراج گزینه انتخابی کاربر از گرید

[m2011kh]

سلام به همه دوستان و برنامه نویسان عزیز.
مدّتی بود تو برنامه نویس فعالیت خاصی نداشتم و اینم به علّت مشغله زیاد و کوچم از VB6 به Delphi و Vb.NET بوده.

بعد از این مدّت بنا بر دلایلی نیاز به این شد که اطلاعات کاملی (شخصی و غیر شخصی) از عدّه ای خاص به دست بیارم و در اصل تجسس کنم در زندگی شون،بنا بر هدف خاصّی.برای این هدف دیتابیسی(کاملا دستی) ایجاد کرده و برنامه نوشتم برای کنترلش، VB6 رو انتخاب کردم.

و امّا اصل مطلب:
فعلا تو برنامه از MSFlexGrid استفاده میکنم چون انتظارات خاصی از گرید ندارم.فقط دو تا سوال داشتم.اول اینکه میخوام وقتی کاربر بر روی یکی از فیلد ها کلیک کرد من متن اون فیلد رو به دست بیارم.

و سوال دوم این که برای تنظیم عرض هر ستون چی کار باید بکنم.

ممنون میشم اگه دوستان جواب این دو سوال منو بدن.

ولادت مهدی موعود رو هم به همه تبریک میگم.

شب خوش.

موفق و سربلند باشید.

MMD

[m2011kh]

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

موفق و سربلند باشید.

MMD

[m.4.r.m]

این برای نمایش در Text Box :
With VS
Text1.Text = .TextMatrix(.Rows - 1, 1)
Text2.Text = .TextMatrix(.Rows - 1, 2)
End With


برای تغییر width ستون ها هم خاصیت

Private Sub Form_Load()
VS.AllowUserResizing = flexResizeBoth
End Sub


با این کار با ماوس می توانید اندازه ستون ها رو دستی کم و زیاد کنین

[m2011kh]

سلام.ممنون از پاسختون و یه سوال کوچیک دیگه:
درباره این کدتون:
With VS
Text1.Text = .TextMatrix(.Rows - 1, 1)
Text2.Text = .TextMatrix(.Rows - 1, 2)
End With


باید تو کدوم رویداد استفاده بشه؟؟؟

موفق و سربلند باشید.

MMD

[m.4.r.m]

این کد رو من بدون عملیات دیتابیس و SQL براتون نوشتم شما میای اینطوری می نویسی :

Private Sub Form_Load()
VS.AutoSearch = flexSearchFromCursor
End Sub

Private Sub VS_EndAutoSearch()
With VS
Select Case .Col
Case 1:
adodc1.RecordSource = "Select * From Table1 Where Name='" & .Text
adodc1.Refresh
Text1.Text = .TextMatrix(.Rows - 1, 1)
Text2.Text = .TextMatrix(.Rows - 1, 2)
Case 2:
adodc1.RecordSource = "Select * From Table1 Where Family='" & .Text
adodc1.Refresh
Text1.Text = .TextMatrix(.Rows - 1, 1)
Text2.Text = .TextMatrix(.Rows - 1, 2)
End Select
End With
End Sub


بعد با این کد شما فقط کافیه روی ستون مثلا نام کلیک کنید بعد زبان کیبورد رو فارسی کرده و نام مورد دلخواه خودتون رو تایپ کنید سپس Enter به همین راحتی و خوشمزگی

[m2011kh]

خیلی ببخشید امّا منظور سوالم رو متوجه نشدید.

نرم افزارم به دیتا بیسی کاملا دستی و خود ساخته متصل هست،همینطور کتابخانه ای که برای ارتباط باهاش استفاده میشه.

و سوال من جستجو تو دیتا بیس نبود.

در MSFlexGrid وقتی کاربر بر روی فیلدی یا خونه ای کلیک میکنه متن داخل اون رو داخل یه تکست باکس داشته باشم.باز هم از راهنمایی هاتون ممنون.

موفق و سربلند باشید.

MMD

[m2011kh]

سلام.

کسی جوابی برای سوال من نداشت؟؟؟

موفق و سربلند باشید.

MMD

[m.4.r.m]

بیا داداش اینم کد مورد نظر شما

Private Sub VSFlexGrid1_Click()
With VSFlexGrid1

Text1.Text = .TextMatrix(.Row, 1)
Text2.Text = .TextMatrix(.Row, 2)

End With
End Sub