View previous topic :: View next topic |
Author |
Message |
paul مهمون يكي دو روزه
Joined: 14 May 2005 Posts: 9
|
Posted: Sat May 14, 2005 4:53 pm Post subject: ocx برای Search File |
|
|
من بدنبال کدی بودم در vb که با هاش بتوانم بدنبال فایل ها بگردم
Last edited by paul on Mon May 30, 2005 8:07 am; edited 3 times in total |
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Sat May 14, 2005 7:34 pm Post subject: |
|
|
ocx زیر رو دانلود کن .
http://www.martin2k.co.uk/vb6/ocxs/filesearch.zip
بعد توی پروژه ات ببر و بعد هم مثل شکل زیر کنترلها رو بساز .
که توی readme هم گفته که چه کنی و چه نکنی ...
| Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub 'If the textbox is empty, then nothing can be searched for
List1.Clear 'Clear any previous searches
Me.Enabled = False
FS1.SearchFile List1, Text2.Text, Text1.Text, Me
Me.Enabled = True
Me.Caption = "Form1" 'Clear the status bar after the search
End Sub |
|
|
Back to top |
|
|
paul مهمون يكي دو روزه
Joined: 14 May 2005 Posts: 9
|
Posted: Sun May 15, 2005 11:36 am Post subject: |
|
|
اقا وحید سلام
من OCX را گرفتم ام کار کرد
مطابق همان چیزی هم که گفته بودی عمل کردم
متشکرم
Last edited by paul on Fri Jun 10, 2005 10:39 am; edited 1 time in total |
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Sun May 15, 2005 1:15 pm Post subject: |
|
|
راه دیگه که پره ...
اما اسانترین راهش همینه باور کن :
ببین کد رو تشریح میکنم :
text1 همونیه که توش مثلا *.* میریزی .
text2 همونیه که توش ادرس رو میدی مثلا درایو
یک لیست باکس هم میسازی به نام list1
بعد هم F5 کن ببین کار میکنه !
OCX رو میتونی وارد پروژه ات بکنی ؟ |
|
Back to top |
|
|
slimshady مهمون يكي دو روزه
Joined: 18 May 2005 Posts: 1
|
Posted: Wed May 18, 2005 9:53 pm Post subject: |
|
|
Paul من از این OCX استفاده کردم کار کرد. |
|
Back to top |
|
|
paul مهمون يكي دو روزه
Joined: 14 May 2005 Posts: 9
|
Posted: Mon May 30, 2005 8:02 am Post subject: Ocx برای Search File |
|
|
paul wrote: | من بدنبال کدی بودم در vb که با هاش بتوانم بدنبال فایل ها بگردم |
|
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Tue Jun 21, 2005 10:28 am Post subject: |
|
|
اگر در این زمینه هم مشکلت حل نشده بگو کمکت کنم |
|
Back to top |
|
|
|