arkadaşlar bitirme projemize koymak için acil hesap makinesi lazım kare kökünü alan yüzde hesabı yapan ve buna benzer özellikleri olan bir hesap makinesine ve kodlarına ihtiyacım var eğer bana yardımcı olursanız çokkk sewinirim şimdiden çok teşkür ederim
arkadaşım ben yardımcı olurum msn adresini verirsen akşam yollarım (çalıştığım için şu an yollayamıyorum)
arkadaşım çok saol ama biz bulduk ama bi soru daha biz programa yardım menüsü eklicez wordpadle yapmayı düşünüyoruz onu nasıl yapabiliriz ve kodlarını biliyomusun??herşey için tekrar teşkür ederim
arkadaşım sen word dökümanında yap yardım dosyanı ve bu kodları o word dökümanını açmak için kullan
eğer olmazsa akşam yapılmış şeklini sana yollarım(sonucunu buraya yaz)
kolay gelsin
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 : mustafa
'****************************************
'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
Kullanimi ;
Private Sub Command1_Click()
Dim lResult As Integer
'Word documani aciliyor
lResult = OpenWordDocument("C:Test.doc")'(buraya kendi dökümanın adını ve adresini yaz)
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)
olabilir ama yanlış anlaşılcak bi durum yok. yardım etmeye çalışıyorum. anlıyosun diimi emos. sadece yardım
bu arada arkaşım yaptığın word dökümanını wordpad'de yapma Microsoft Word'de yap. kodlar yemeyebilir.
mustafa-k msnde görüşmek üzre by
harbiden arkadaşım ayıp etmişsin
arkadaşlar forum içinde msn al msn ver demek bence forumda boşuna yer işgali illede msn alıpvermek istiyorsanız özelden yazarsın msnyi ver veya verme diye yoksa bu forum msn dağıtma formu değil
yazışmalarınız konu ile ilgili olsun arkadaşlar.şahsa yönelik hakaret içerikli yazışmalardan uzak durun.