تبدیل کد vb6 به vb.net 2010

[lovecity7]

باسلام
اگه ممکنه این کد vb6 رو به vb.net تبدیل کنید.
ممنون

Dim ComboStr As String
Dim CountOfComboValues As Integer
Option Compare Database
…………………………….
Private Sub Combo0_Change()
ComboStr = Combo0.Text
For x = 1 To CountOfComboValues
FoundStr = InStr(1, ComboArray(x), ComboStr, vbTextCompare)
If FoundStr > 0 Then
Label6.Caption = Combo0.ItemData(x - 1)
End If
Next
End Sub
…………………….
Private Sub Form_Load()
Dim tmpStr As String
CountOfComboValues = Combo0.ListCount
For x = 1 To CountOfComboValues
Module1.ComboArray(x) = Combo0.ItemData(x - 1)
Next
End Sub
……………………….ودرماژول
Option Compare Database
Public ComboArray(255) As String

[sagggad]

سلام دوست من.
منوی Tools بالای ویژوال استودیو 2010 کلیک کن.ببین گزینه ای به نام:Upgrade Visual Basic 6 Code نداره؟؟

[lovecity7]

سلام
این گزینه درنرم افزارمن وجود ندارد. شمازحمتش روبکش.

[sagggad]

من تحقیق کردم،این گزینه فقط در ویژوال استودیو2008 وجود داره.
حالا غصه نخور من الان برات درستش میکنم!!!

[lovecity7]

آقا سجاد ازاینکه وقت میذاری وکمک می کنی ممنون.

[sagggad]

خواهش میکنم:
این کد فکر کنم درست باشه:

Dim ComboStr As String
Dim CountOfComboValues As Short
Private Sub Combo0_Change()
Dim Label6 As Object
Dim FoundStr As Object
Dim x As Object
Dim Combo0 As Object
ComboStr = Combo0.Text
For x = 1 To CountOfComboValues
FoundStr = InStr(1, ComboArray(x), ComboStr, CompareMethod.Text)
If FoundStr > 0 Then
Label6.Text = Combo0.ItemData(x - 1)
End If
Next
End Sub
Private Sub Form_Load()
Dim x As Object
Dim Combo0 As Object
Dim tmpStr As String
CountOfComboValues = Combo0.ListCount
For x = 1 To CountOfComboValues
Module1.ComboArray(x) = Combo0.ItemData(x - 1)
Next
End Sub
Public ComboArray(255) As String


اگه مشکلی بود بگو.
موفق باشید:لبخندساده:

[lovecity7]

سلام آقاسجاد
کدی که تبدیل کردی درقسمت فرم لود tmp str و combobox1 خطا دارد.یعنی درزیراینها خط سبزکشیده نمو دونم برای چی.
ودرقسمت کدکمبوباکس lable6 و foundstr و combobox خطادارد.
بازم ممنون

[sagggad]

شما برنامت رو بذار شاید یه چیزی ازش متوجه شم

[lovecity7]

سلام اینم برنامه ای که خودتون زحمتش روکشیده بودید
project (http://uplod.ir/f9dx1vhpfj6j/Search_Combo_Box.rar.htm)

[sagggad]

سلام.این برنامه رو من نوشتم،ولی الان فقط اسمش رو اونه که!!الان کارایی این برنامه شما چیه؟؟همون سرچ در کامبوباکس؟؟شما حتما میخواید با این کد سرچ روانجام بدید؟؟
اصلا خودتون میدونین برای چی از این کد دارین استفاده میکنین؟؟

[sagggad]

یه اشتباه شما این بود که متغیری به نام ComboBox1 تعریف کردین،در حالی که دربرنامتون
یک شی به اسم ComboBox1 دارید!!
این کدهارو شما برای AutoComplete شدن کامبوباکس نوشتید:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'این باتن کارهمان تنظیات آوتوکامپلت سورس درکمبوباکس راانجام می دهد ولاغیر

Dim index As Integer = ComboBox1.FindString(TextBox2.Text)
If (index < 0) Then
MessageBox.Show("Item not found.")
TextBox2.Text = String.Empty
Else
ComboBox1.SelectedIndex = index
End If
End Sub


در حالی که برای این کار فقط باید خصوصیت AutoCompleteMode کامبوباکس رو برابر SuggsetAppend قراربدی.خصوصیت AutoCompleteSource رو هم برابرListItem قراربدی.با این کار اگر داخل کامبوباکس سرچ کنیم که اصلا احتیاج به هیچ کدی نیست.(این دوخصوصیت خودبه خود برای شما جستجو میکنند)اما اگر داخل مثلا یک تکس باکس سرچ انجام بشه یه سری کدهایی لازم داره اما نه اون کدهایی که شما نوشتید.اونها زیادی پیچیده شدن.
باز هم شما اگه میشه من رو راجع به کارایییشون توجیه کنین!!

[lovecity7]

سلام
صحبت شمادرسته اما اون دوخاصیتی که شماگفتید اگه من بخوام محمدجواد حمیدی راسرچ کنم اگه فقط بنویسم جواد سرچ نمی کند .
من اینجورسرچی رومی خوام که شبیه like دردیتابیس باشد.

[sagggad]

آها درسته.بعد شما میشه بگید این کدهای جستجو رو براچی انقدر پیچیده کردین؟؟چون بایه کد سرچ ساده میشه اینکار رو انجام داد

[lovecity7]

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

[sagggad]

شما فقط به من بگو:آیا میخوای حتما از این کد استفاده کنی؟؟چون من کد برای سرچ تو کامبوباکس زیاد بلدم!

[lovecity7]

سلام
نه من فقط می خوام به همون صورتی که گفتم جستجوکنه هرکدی بذاری ممنونت میشم.
یاعلی

[sagggad]

باشه داداش دارم واست سورس مینویسم!

[sagggad]

بیا دوست من.یه سورس برات نوشتم فکرکنم همون چیزی باشه که میخوای.البته امیدوارم همینطورباشه چون انقدر فکر کردم و تحلیل که الانه که سرم بترکه!!!
ببین در این سورس یک کامبوباکس و یک تکس باکس هست.
مثلا کلمه سجاد یکی از آیتم های کامبوباکس هست.حالا با نوشتن حرف "ج" در تکس باکس، کلمه "سجاد" رو در کامبوباکس بهت نشون میده.
دیگه سرچ هم میکنه باهمین کد!!
این کد:

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Dim pos As Integer
For i = 0 To ComboBox1.Items.Count - 1
Dim s As String = ComboBox1.Items.Item(i).ToString()
Dim s2 As String = TextBox2.Text
Dim chr As Char() = New Char(s.Length - 1) {}
Dim chr2 As Char() = New Char(s2.Length - 1) {}
chr = s.ToArray()
chr2 = s2.ToArray()
pos = InStr(chr, chr2)
If pos > 0 Then
ComboBox1.Text = ComboBox1.Items.Item(i).ToString()
End If
Next
End Sub

لینک دانلود سورس:114254
خبربده چون خیلی براش وقت گذاشتم
موفق باشید:لبخندساده:

[lovecity7]

سلام آقا سجاد
دست گلت دردنکنه جواب داد برای تشکریکی ازتکنوازی هامو برات می فرستم .
بازم ممنون

[sagggad]

خواهش میکنم،ممنون:لبخندساده:

[sagggad]

داداش اون نسخه ای که برات گذاشتم اگر بیش تر از یک گزینه درکامبوباکس باشه که اون حرف در اون باشه،نمی تونست همه ی آیتم هارو نمایش بده.اما این نسخه هرچی آیتم باشه که در اون ها این حرف وجود داشته دریک لیست باکس نمایش میده:
لینک دانلود:http://www.uploadkon.ir/?file=Serch%20in%20ComboBox%20Proffisional%20v2.ra r
موفق باشید:لبخندساده:

[lovecity7]

سلام دوباره
بابت کدها ممنون ولی آیامیشه جستجودرکمبوباکس باشه وازتکست باکس استفاده نکنیم من کدهارودستکاری کردم نشد اگه راهی داره لطفاً بفرما.

[sagggad]

بفرما دوست من فکر کنم این مورد نظرت باشه:
لینک دانلود:114343
موفق باشید:لبخندساده:

[lovecity7]

آقا سجاد واقعاً زحمت کشیدی.

[lovecity7]

سلام
آقاسجاد منظورم اینه که موردرا درکمبوواردکنی وهمانجاهم جستجوشده وکامل عبارت رابیاورد.
ممنون

[sagggad]

خوب این برنامه هم همینکار رو میکنه دیگه؟!یک کم بیشتر راجع به منظورتون توضیح بدید!اگر چند آیتم بود که در همه ی اونها مثلا حرف "ج" وجود داشت اون موقع چه کار کنه؟؟

[sagggad]

ببین منظورت اینه:
114381
خبر بده:لبخندساده:

[lovecity7]

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