Visual Basic Teklif Hazırlayıcı Programı

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..

KAYNAK