VB - Program Viewer Word File and Picture Viewer

By -
Mungkin disini akan sedikit ada perbedaan coding, dimana lebih cepat dan efisien dalam menampilkan file word.
1. Pertama buat Design windows form seperti gambar dibawah
(Gunakan toolbox untuk membuatnya)
2. tambahkan referense interop


3. Masukan kode dibawah ini

'digunakan menginputkan fungsi viewer Word
Imports Microsoft.Office.Interop
Public Class Form1
    'Menentuakan apa yang dilakukan (even) saat button1 diklik
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'fungsi yang digunakan untuk menentukan mana yang akan dicari saat tabpage mana yang dibuka
        If TabPage2.Focus = True Then
            'untuk tabpage2 jika dibuka makan akan mencari gambar
            OpenFileDialog1.Filter = "Gambar|*.bmp;*.jpg;*.png"
            OpenFileDialog1.Title = "Mencari File Gambar"
            OpenFileDialog1.ShowDialog()
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Else
            'jika tidak maka opendialog akan mencari file dokumen
            OpenFileDialog1.Filter = "Document|*.doc;*.docx"
            OpenFileDialog1.Title = "Mencari File Document"
            OpenFileDialog1.ShowDialog()
            Dim doc As Word.Document
            Dim wrd As New Word.Application
            Dim tex As String
            Try
                doc = wrd.Documents.Open(OpenFileDialog1.FileName)
                tex = doc.Range.Text()
                doc.Close()
                RichTextBox1.Text = tex
            Catch
                'jika terjadi kesalahan maka akan dimunculkan pesan error
                MessageBox.Show("Mohon Coba lagi", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

 kemudian coba jalankan
ini screen shoot saat digunakan... jika berhasil




Comments

Post a Comment

Popular posts from this blog

VB.NET - Membuat Angka Acak

By -
Image
Membuat angka acak dengan Vb.Net, dengan menggunakan rumus random yang ada di visual basic. Khusus untuk XI TKJ SMK Hasyim Asy'ari. Pembuatan anka acak ini bisa diterapkan di beberapa versi VB. berikut langkah langkah membuat sebuah angka acak pada Vb.Net. 1. Buat lah sebuah label dan sebuah button, label untuk menampilkan angka sedangkan butoon untuk mengeksekusi coding. lihat gambar dibawah. 2. Klik dua kali di Button untuk memasukan kode. dan masuka kode seperti dibawah ini. 3. Kemudian jalankan dan hasilnya seerti gambar berikut 4. Kemudian klik acak maka akan muncul angka secara acak tak lebih dari 100 Demikian cara membuat program untuk mengacak angka, dimana nilai 100 merupakan nilai batasan yang berarti program akan mnampilkan angka secara acak mulai 1 sampai 100. Semoga bisa dimengerti dengan jelas. " Jika ada niat, maka tiada yang tidak bisa"
Next »

Kenapa dinamai windows?

By -
Image
Sejarah dari wikipedia - Versi pertama Microsoft Windows, yang disebut dengan Windows 1.0, dirilis pada tanggal  20 November 1985 . Versi ini memiliki banyak kekurangan dalam beberapa fungsionalitas, sehingga kurang populer di pasaran. Pada awalnya Windows versi 1.0 ini hendak dinamakan dengan  Interface Manager , akan tetapi  Rowland Hanson , kepala bagian pemasaran di  Microsoft Corporation , meyakinkan para petinggi Microsoft bahwa nama " Windows " akan lebih "memikat" konsumen. Windows 1.0 bukanlah sebuah sistem operasi yang lengkap, tapi hanya memperluas kemampuan MS-DOS  dengan tambahan antarmuka grafis. Selain itu, Windows 1.0 juga memiliki masalah dan kelemahan yang sama yang dimiliki oleh  MS-DOS . Lebih jauh lagi,  Apple  yang menuntut Microsoft,sehingga Microsoft membatasi feature yang ada di operating systemnya. Sebagai contoh, jendela-jendela di dalam Windows 1.0 hanya dapat ditampilkan di layar secara " tile " saja, sehingga jendela ters
Next »

Konversi Desimal ke Biner Menggunakan Stack - Java

By -
Image
Buatlah New Projrct dengan cara klik file -> new projrct , pilih java application. beri nama project kemudian masukan kode dibawa ini: /*  * To change this template, choose Tools | Templates  * and open the template in the editor.  */ package biner; import java.util.Scanner; /**  *  * @author Moch. Afif  */ public class Biner {     /**      * @param args the command line arguments      */     public static void main(String[] args) {         // TODO code application logic here         System.out.println("Program konversi ke biner dari desimal");         Scanner msk =new Scanner(System.in);         System.out.print("Masukan Nilai Desimal :");         int bil = msk.nextInt();         tumpukan bn=new tumpukan(10);         int n=bil;         while (bil>0){             n=bil%2;                         if (n>0){                 bn.push(1);             }else                 bn.push(0);                         bil=bil/2;    
Next »