+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb 2008 Kodunu Vb6'ya Çevirme? (/konu-vb-2008-kodunu-vb6-ya-cevirme.html)
Vb 2008 Kodunu Vb6'ya Çevirme? - Uğur ŞİRİN - 16/06/2017
Option Explicit On
Public Class Form1
Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command4.Click
Dim PrintIt As Long
'PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", -1)
PrintIt = ShellExecute(Me.Handle, "print", "D:\MyDoc.Doc", "", "", SW_SHOWNORMAL)
End Sub
End ClassArkadaşlar yukarıdaki kodu birlikte VB6 formatına çevirebilir miyiz ?
Cvp: Vb 2008 Kodunu Vb6'ya Çevirme? - alpeki99 - 18/06/2017
Siz yapmak istediğinizi söylerseniz daha kolay olabilir.
Cvp: Vb 2008 Kodunu Vb6'ya Çevirme? - Uğur ŞİRİN - 19/06/2017
(18/06/2017, 23:57)alpeki99 yazdı: Siz yapmak istediğinizi söylerseniz daha kolay olabilir.
Sayın alpeki99 ilginiz için çok teşekkür ederim. Uzun zamandır üzerinde çalıştığım program ile ilgili VB6'da kaynak ve alternatif bulamıyordum. Ben de neden VB.Net'e geçmeyim dedim ve VB.Net'de çalışmaya başladım. Kısaca yukarıdaki kodu çevirmeme gerek kalmadı.
VB de bilgisayardaki bir doc, pdf, txt uzantlı döküman belgelerine yazdır komutu göndermeye çalışıyordum. Bu nedenle istemiştim. Teşekkür ederim, iyi çalışmalar.