04-02-15, 08:28 AM
السلام عليكم
في فيجوال بيسك 6 كنا نفتح الآلة الحاسبة بالأمر
Dim j
Dim Folder
Folder = App.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
j = Shell(Folder & "\calc.exe", vbNormalFocus)
انا اريد ان افتح صورة بالفيجوال نت وكأنني نقرت عليها مرتان..
شكرا
في فيجوال بيسك 6 كنا نفتح الآلة الحاسبة بالأمر
Dim j
Dim Folder
Folder = App.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
j = Shell(Folder & "\calc.exe", vbNormalFocus)
انا اريد ان افتح صورة بالفيجوال نت وكأنني نقرت عليها مرتان..
شكرا