Skip to main content

AccessTr.neT


Vb 2008 Kodunu Vb6'ya Çevirme?

Vb 2008 Kodunu Vb6'ya Çevirme?

Çözüldü #1
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 Class

Arkadaşlar yukarıdaki kodu birlikte VB6 formatına çevirebilir miyiz ?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Vb 2008 Kodunu Vb6'ya Çevirme? - Yazar: Uğur ŞİRİN - 16/06/2017, 15:08
Cvp: Vb 2008 Kodunu Vb6'ya Çevirme? - Yazar: alpeki99 - 18/06/2017, 23:57