abi_sarab
سه شنبه 30 مهر 1387, 10:01 صبح
سلام
کسی می تونه dll word رو برام بذاره؟
می خوام فایل ورد رو تو vb.net داخل یه richtextbox باز کنم.
می شه کمک کنید؟
taghvajou
یک شنبه 12 آبان 1387, 17:29 عصر
سلام
منم نیاز دارم تا داخل یکی از برنامه هام بتونم اجراش کنم و بشه داخلش متن نوشت؟
ممنون
Afshin160
یک شنبه 12 آبان 1387, 18:32 عصر
سلام ...
من درست متوجه منظورتون نشدم ولي اگر منظور شما ساختن و نوشتن تو يه فايل word كه فكر ميكنم بشه با اين كد كارتون رو راه بندازيد ...
rooshan2008
دوشنبه 13 آبان 1387, 01:38 صبح
سلام
با این کد می تونی برنامه ورد رو داخل پنجره خودت باز کنی و فایل رو ویرایش کنید:
این هم کدش:
Public WD As New Object
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Integer) As Integer
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer
Dim wdHwnd As Long
Private Sub ShowWord1(Optional ByVal filename As String = "")
Dim m1 As Integer
'On Error Resume Next
Shell("tskill winword")
WD = CreateObject("Word.Application")
WD.Caption = "besuretofindthisinstance"
wdHwnd = FindWindow("OpusApp", WD.Caption)
BringWindowToTop(wdHwnd)
SetParent(wdHwnd, Me.Handle)
ShowWindow(wdHwnd, 3)
WD.Documents.Open(filename)
WD.CommandBars("Menu Bar").Enabled = False
WD.CommandBars("Standard").Visible = False
WD.CommandBars("Tables and Borders").Visible = False
WD.CommandBars("View").Controls(3).Execute()
'WD.CommandBars("Document Recovery").Visible = False
WD.ActiveWindow.DisplayVerticalRuler = True
WD.ActiveWindow.DisplayRulers = True
m1 = CreateRectRgn(3, 30, (Me.Width) - 2, Me.Height)
MoveWindow(wdHwnd, 0, -10, Me.Width, Me.Height + 20, 1)
SetWindowRgn(wdHwnd, m1, True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowWord1("c:\000.doc")
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.