[C# .NET] [VB .NET] Membuat Desktop Mini untuk Mengontrol Desktop dengan Skala Tertentu (Desktop Scale)
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
Jika untuk VB .NET berikut kodenya
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
- 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
Password : http://blog.didanurwanda.com
C# .NET
Password : http://blog.didanurwanda.com