چجوري فايل متني رو ميشه مشاهده كرد؟

[moin54]

با سلام
ميخوام با كليك روي يك command فايل c:\file1.txt مشاهده بشه يعني همون اتفاقي بيفته كه پس از كليك روي خود فايل رخ ميده لطفاً راهنمايي كنين

[f.nabavi]

سلام. شما میتونی از Api ها استفاده کنی. نمونه کد:

Const SW_SHOWNORMAL = 1
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()
ShellExecute Command1.hwnd, "open", "C:\New.txt", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[majjjj]

Private Sub Form_Load()
Shell "notepad c:\YServer.txt", vbNormalFocus
End Sub

البته اگه خواستی داخل خود برنامه باز بشه باید از دستور open استفاده کنیدو مقادیر رو داخل یک ریچ تکس باکس بریزید