باز کردن یک فایل html از طریق vb

[mostafa612003]

با سلام
آیا می توانیم در vb یک فایل html را فراخوانی کنیم یعنی از طریق vb صفحه ie باز شود و فایل مورد نظر ما نمایش داده شود ؟
و چگونه می توانیم در vb یک فایل متنی بسازیم و اطلاعاتی را در آن درج کنیم

متشکرم

[__siavash__]

با سلام
آیا می توانیم در vb یک فایل html را فراخوانی کنیم یعنی از طریق vb صفحه ie باز شود و فایل مورد نظر ما نمایش داده شود ؟
و چگونه می توانیم در vb یک فایل متنی بسازیم و اطلاعاتی را در آن درج کنیم

متشکرم
در جواب سوال اول

Shell "Explorer.exe http:\\www.google.com"
برای ساختن فایل متنی باید از OpenStatment استفاده کنی به این شکل


Open (App.Path & "\Test.txt") For Output As #1
Print #1, "This is a test"
Close #1

[nokhodi]

دوست عزیز __siavash__ (http://barnamenevis.org/forum/member.php?u=33948) vbmenu_register("postmenu_407976", true); :
فراخوانی یک فایل html نه رفتن به سایت؟
پ.ن: این سوال منم هست؟ممنون میشم اگه جواب بدین؟

[__siavash__]

منظور یه فایل Html هست که روی هارد هستش ؟
به طور ساده با این دستور

Shell "Explorer.exe G:\Test.Html"
که فایل Test.Html رو باز میکنه
و با تابع API


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 Const SW_SHOW = 5
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "Explorer.exe", """G:\Test.Html""", vbNullString, 0
End Sub

[mostafa612003]

خیلی ممنونم
من برای نمایش فایلهای htm از کمپوننت WebBrowser استفاده کردم
حالا اگر بخواهم محتویات همین فایل html را از طریق vb چاپ کنم از چه دستوری استفاده باید کرد؟اصلا چنین امکانی وجود دارد؟
و اینکه اگر در فایلی بخواهیم یک رشته خیلی طولانی را درج کنیم و بخواهیم ادامه رشته را در خط بعدی بنویسیم چگونه باید این کار را انجام بدهیم؟
ممنونم

[__siavash__]

در مورد چاپ فایل htm با vb من تا حالا این کارو نکردم! شاید بشه این کارو کرد
یه فرم جدید درست کن و WebBrowser رو روی اون بذار و اندازه اونو به اندازه کل فرم بذار بعد فایل htm رو توش قرار بده بعد فرم رو پرینت بگیر !!!!!

در مورد نوشتن خط در سطر دوم این دو راه هست


Open (App.Path & "\Test.txt") For Output As #1
Print #1, "This is a test" & vbCrLf & "This Line2"
Close #1



Open (App.Path & "\Test.txt") For Output As #1
Print #1, "This is a test"
Print #1, "This Line 2"
Close #1

یا فایل رو For Append باز کنی !