wordpad ekleme acill

wordpad dosyası nasıl eklenecek onu biliyorsanız yazarmısınız??yardım menüsü olarak elicezde

arkadaşım geçen günkü yazdığım kodlara bişey eklemeyi unutmuşum. aşağıdaki ilk bölümdeki kodları modül dosyasına yazman gerek.

Aşagidaki fonksiyonu bir modul dosyasina kopyalayiniz.

Public Function OpenWordDocument(strFileName As String) As Integer
'****************************************
'Purpose : Open word file
'Input   : Word file name with path
'Output  : -1 : Opened
'           0 : General error
'           1 : Microsoft Word cannot opened
'           2 : File not found
'Data    : 05.08.1998
'Author  : Murat Aras
'****************************************

'Error handle
On Error GoTo ErrFunction

Dim objWord As Object       'Word object
Dim objDocument As Object   'Document object
Dim strMessage As String    'Message

'If file not exist
If Dir(strFileName) = "" Then
    'Set error number
    OpenWordDocument = 2    'File not found
    Exit Function
End If

'Set error number
OpenWordDocument = 1    'Word cannot opened
'Create and set word object
Set objWord = CreateObject("Word.Application")
'Create and set document object
Set objDocument = objWord.Documents.Open(strFileName)
'Show word object
objWord.Visible = True

'File has been opened
OpenWordDocument = -1

'Exit function
Exit Function

'Error function
ErrFunction:
    'If word is opened close it
    If Not objWord Is Nothing Then Set objWord = Nothing
    If OpenWordDocument = 1 Then Exit Function
    'General error
    OpenWordDocument = 0
    strMessage = "Error Number : " & Trim(Str(Err.Number))
    strMessage = strMessage & vbCrLf & "Error Description : " & Err.Description
    MsgBox strMessage, vbInformation + vbOKOnly, App.EXEName

End Function

bu kodlarıda formun içine yazman gerek
'Kullanimi ;
forma 1 command ekle

Private Sub Command1_Click()

Dim lResult As Integer

'Word documani aciliyor
lResult = OpenWordDocument("C:Test.doc")

If lResult = -1 Then
    'Bir sey yapmaya gerek yok dokuman acilmistir
ElseIf lResult = 0 Then
    'Bir sey yapmaya gerek genel hata.
    'Fonksiyon icinden hata mesaji verildi
ElseIf lResult = 1 Then
    MsgBox "Microsoft Word acilamiyor.", vbCritical + vbOKOnly, App.EXEName
ElseIf lResult = 2 Then
    MsgBox "Dosya bulunamadi.", vbCritical + vbOKOnly, App.EXEName
End If

End Sub

(Alıntıdır)

arkadaşım iyi güzel sölüyonda biz bunu hocaya nasıl anlatcaz bize bunları göstermediler bi bilgimiz yok araştıralım öğrenelim dicem ama cuma teslim ki bunun daha çıktısı ve cilt işi var o yğzden daha basit ve anlaşılır bi şekilde olursa ii olur:)ayrıca ilgilendiğin için çokkk teşkür ederim:)

önemli deil bi yardım edebilsem daha iyi olcak neysee

arkadaşım şöyle kendin küçük bi word gibi bi form yapsan. yardıma tıklıyınca o form açılsa. içinde yardımla ilgili herşeyi yazarsın. istersen daha çok form yaparsın yardım için. yani bu daha uygun wordde sadece bi sayfada olcak ve o kişi onu bulana kadar arıyacak. ama vb.de neye bakmak istiyorsa ona tıklar ve o form açılır. yada bi tane data yap arama yeri yap yardım bölümünde kişi ne istiyorsa arama yerine yazsın data'nın içinde onu arasın ve bulunca listview'a yazsın. hem kodlar da basit
yalnız data biraz karışık olabilir.

yardım ile ilgili bilgileri web sayfası şeklinde yap. sonra onu chm ye çevir (çoğu programda öyle yardım dosyaları genelde chm uzantılıdır.) yardıma tıklayıncada sizin yardım.chm açılsın hem orjinal bir şekilde olur.

Kaos-220

yardım ile ilgili bilgileri web sayfası şeklinde yap. sonra onu chm ye çevir (çoğu programda öyle yardım dosyaları genelde chm uzantılıdır.) yardıma tıklayıncada sizin yardım.chm açılsın hem orjinal bir şekilde olur.