27-05-13, 05:11 AM
السلام عليكم و رحمة الله و بركاتة :::
انا عامل فورم و عليها كمبو بوكس المثال بالمرفقات ... و داتا بيز اكسس ... رابطها مع الفورم عن طريق مكتبة الــ ADO
الداتا بيز فيها كذا جدول و كل جدول فيه حقل واحد فقط و هو link و متسجل عليه رابط
و الكود دا اللى بيحمل كل الجداول في الكمبو بوكس
Do Until rs.EOF
If rs.Fields("TABLE_TYPE") = "TABLE" Then
Combo1.AddItem rs.Fields("TABLE_NAME")
End If
rs.MoveNext
Loop
-----------
المطلوب
-----------
عاوز لما اختار اي جدول من الكمبو بوكس و اضغط عليه يفتح الرابط اللى جواه في المتصفح الافتراضي بتاع الجهاز
و الكود دا اللى بيفتح الروابط في المتصفح الافتراضي بالجهاز
Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA"( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
Private Sub Command1_Click()
Dim r As Long
r = ShellExecute(0, "open", "http://www.microsoft.com/", 0, 0, 1)
End Sub
ازاى اربط الليلة ديه مع بعض
فيجوال بيزك 6
