Sabtu, 20 September 2014

9/20/2014
Setelah sekian lama absen menulis pada blog ini, akhirnya saya menyempatkan diri untuk kembali menulis. Artikel ini berbeda dari sebelumnya yang mana sebelumnya membahas mengenai PHP dan PHP Framework, sekarang sedikit menambahkan kategori baru yaitu VB .NET dan C# .NET.

Tujuan penulisan artikel ini berawal dari permintaan teman saya yang menginginkan mengontrol lokasi munculnya form dengan hanya menggeser pada desktop mini yang terdapat pada form. Jujur saja untuk urusan judul saya sendiri bingung dan hasilnya seperti di atas. Terlalu panjang dan ribet menurut saya.

Baiklah langsung saja, untuk pembuatan aplikasi silahkan anda buat project baru terserah mau C# ataupun VB .NET dan buat form seperti dibawah


Keterangan :
- PictureBox (yang berwarna orange)
- Panel (yang berwarna Gelap)

Ribet juga jelasin step-stepnya, langsung aja deh berikut kode lengkapnya untuk C# .NET

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace desktopscale_csharp
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private Point pointScale;
        private Form form = new Form();
        private Label label = new Label();

        private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
        {
            if (e.Button == System.Windows.Forms.MouseButtons.Left)
            {
                pointScale = e.Location;
            }
        }

        private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
        {
            if (e.Button == System.Windows.Forms.MouseButtons.Left)
            {
                PictureBox1.Left = e.X + PictureBox1.Left - pointScale.X;
                PictureBox1.Top = e.Y + PictureBox1.Top - pointScale.Y;
            }
        }

        private void Button1_Click(object sender, EventArgs e)
        {
            label.Text = "Dida Nurwanda";
            label.Font = new Font("Arial", 20, FontStyle.Bold);
            label.ForeColor = Color.DeepPink;
            label.AutoSize = true;

            form.Controls.Add(label);
            form.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
            form.BackColor = Color.CornflowerBlue;
            form.Size = new Size(300, 100);
            form.Left = (PictureBox1.Left * 4);
            form.StartPosition = FormStartPosition.Manual;
            form.Top = (PictureBox1.Top * 4);
            form.TopMost = true;
            form.Show();
        }
    }
}

Jika untuk VB .NET berikut kodenya

Public Class Form1

    Private pointScale As Point
    Private form As New Form()
    Private label As New Label()

    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = MouseButtons.Left Then
            pointScale = e.Location
        End If
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left Then
            PictureBox1.Left = e.X + PictureBox1.Left - pointScale.X
            PictureBox1.Top = e.Y + PictureBox1.Top - pointScale.Y
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        label.Text = "Dida Nurwanda"
        label.Font = New Font("Arial", 20, FontStyle.Bold)
        label.ForeColor = Color.DeepPink
        label.AutoSize = True

        form.Controls.Add(label)
        form.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        form.BackColor = Color.CornflowerBlue
        form.Size = New Size(300, 100)
        form.Left = (PictureBox1.Left * 4)
        form.StartPosition = FormStartPosition.Manual
        form.Top = (PictureBox1.Top * 4)
        form.TopMost = True
        form.Show()
    End Sub
End Class

Download

VB .NET
 Download
Password : http://blog.didanurwanda.com

C# .NET
 Download
Password : http://blog.didanurwanda.com

0 komentar:

Posting Komentar

Pada komentar harap tidak mencantumkan Link yang bersifat promosi.