Visual Basic Teklif Hazırlayıcı Programı

[ßyMesMes]

Merhaba arkadaslar bu dersimizde teklif hazırlayıcı programı hazırlamasını anlattım diger ders’de gorusmek üzere Hemen baslayalım
Teklif Hazırlayıcı Programı yaratın
​

File menüsünde new project tıklayın sorna standart.exe dosyasını yaratmka için Ok’i Tıklayın.​

​

​

​

Formun sol üst kösesinde Teklif Hazırlayıcı Resin yazısına sahip bir etiket yaratın.Etiketin Altına ikinci bir etiket yaratak resim yazısına Word excel Ve paint kullanarak bir imalatın teklifinin hazırlanması yazın​

İlk etikette de fazladan yer bırakın daha sonra özellikleri ayarlarken resim yazısını boyutunu büyütüceksiniz..​

İkinci etikette de fazladan yer bırakın daha sonra özellikleri ayarlarken resim yazısının boyutunu büyüteceksiniz.​

Şimdi Forma nesneler ekleyeceksiniz..​

Araç kutusunda OLE Denetimini tıklayın.​

Teklif çalısma defteri altında ole denetimini kullanarak bir dikdörtgen yaratın..​

​

Insert object iletişim kutusundaki Display As icon onat kutusunu tıklayın böylece uyguluma visual basic programında simge olarak görünür​

Ve asagıdaki resimde gödugunuz gibi label ekliyoruz ve font ayarlarını degistiriyoruz büyük bir yazı kalın artık size kalmıs birşey……​

​

Ve label ekliyoruz OLE’LERİN BASLARINA​

​

Ve bütün belgeleri ekliyoruz ben hepsini aynı yaptım size asıl eklenmesi gerekenleri eklemek kalıyor menülerden seciyorsunuz microfost exel artık keyfiniz bilir hemen devem ediyoruz…

​

​

CommandButton ekliyoruz cıkıs butonu icin
​

​

Ve kodları Veriyorum​

Teklif hazırlayıcı yazısına çift tıklayın ve bu kodu yapıstırın​

Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub ——————————————————
​

Teklif Çalısma Defteri olan kısmın altındaki Wordped belgesine çift tıklayın bu kodu ekleyin..​

Private Sub Command1_Click()
End
End Sub​

Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub

​

Yan tarafındaki teklif hesaplayıcısı kısmına ise su kodu​

Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub​

———————————————–
​

Uygulama Çizimlerine ise su kodu ekliyoruz​

Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub

​

Word exel Ve Paint kullnarak bir imalatın teklifinin hazırlanması ” yazısının kodu​

Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub

​

Cıkıs butonu ise istenen kod​

Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub

​

Ve programın asıl gercek yüzü sizde buna bakarak yapabilirsiniz artık herseyi biliyorsunuz..​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

​

Biraz reklam var ama affola maksat bilgi paylaşmak...

alıntıdır..