thinkdiff
دوشنبه 12 فروردین 1392, 22:20 عصر
با سلام
من یک برنامه ای لازم داشتم و زبانش هم برام مهم نبود
یک سورس در مورد این برنامه پیدا کردم به زبان vb.net که باید تغییرش بدم ولی نمیدونم چطوری باید در visual stadio قرار بدم یعنی از بعضی کدهاش سر درنمیارم
این برنامه با استفاده از توابع API یک کیبورد مجازی با 4 دکمه هست اگه امکانش هست در قالب یک برنامه به من بدینش
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Namespace testapp
Public Class Form1
Inherits Form
Private components As IContainer = Nothing
Private button1 As Button
Private button3 As Button
Private button2 As Button
Private button4 As Button
Protected Override ReadOnly Property CreateParams() As CreateParams ‘must have this
Get
Dim param As CreateParams = MyBase.CreateParams
param.ExStyle = param.ExStyle Or 134217728
Return param
End Get
End Property
Protected Override Sub Dispose(disposing As Boolean)
If disposing AndAlso Me.components IsNot Nothing Then
Me.components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Private Sub InitializeComponent()
Me.button1 = New Button()
Me.button3 = New Button()
Me.button2 = New Button()
Me.button4 = New Button()
MyBase.SuspendLayout()
Me.button1.Location = New Point(22, 133)
Me.button1.Name = button1
Me.button1.Size = New Size(54, 39)
Me.button1.TabIndex = 0
Me.button1.Text = a
Me.button1.UseVisualStyleBackColor = True
Me.button1.Click += New EventHandler(Me.button1_Click)
Me.button3.Location = New Point(142, 133)
Me.button3.Name = button3
Me.button3.Size = New Size(54, 39)
Me.button3.TabIndex = 2
Me.button3.Text = d
Me.button3.UseVisualStyleBackColor = True
Me.button3.Click += New EventHandler(Me.button3_Click)
Me.button2.Location = New Point(82, 88)
Me.button2.Name = button2
Me.button2.Size = New Size(54, 39)
Me.button2.TabIndex = 3
Me.button2.Text = w
Me.button2.UseVisualStyleBackColor = True
Me.button2.Click += New EventHandler(Me.button2_Click)
Me.button4.Location = New Point(82, 133)
Me.button4.Name = button4
Me.button4.Size = New Size(54, 39)
Me.button4.TabIndex = 4
Me.button4.Text = s
Me.button4.UseVisualStyleBackColor = True
Me.button4.Click += New EventHandler(Me.button4_Click)
MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
MyBase.AutoScaleMode = AutoScaleMode.Font
MyBase.ClientSize = New Size(528, 262)
MyBase.Controls.Add(Me.button4)
MyBase.Controls.Add(Me.button2)
MyBase.Controls.Add(Me.button3)
MyBase.Controls.Add(Me.button1)
MyBase.Name = Form1
Me.Text = Form1
MyBase.TopMost = True
MyBase.Load += New EventHandler(Me.Form1_Load)
MyBase.ResumeLayout(False)
End Sub
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
End Sub
Private Sub button2_Click(sender As Object, e As EventArgs)
SendKeys.Send(w)
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
SendKeys.Send(a)
End Sub
Private Sub button4_Click(sender As Object, e As EventArgs)
SendKeys.Send(s)
End Sub
Private Sub button3_Click(sender As Object, e As EventArgs)
SendKeys.Send(d)
End Sub
End Class
End Namespace
من یک برنامه ای لازم داشتم و زبانش هم برام مهم نبود
یک سورس در مورد این برنامه پیدا کردم به زبان vb.net که باید تغییرش بدم ولی نمیدونم چطوری باید در visual stadio قرار بدم یعنی از بعضی کدهاش سر درنمیارم
این برنامه با استفاده از توابع API یک کیبورد مجازی با 4 دکمه هست اگه امکانش هست در قالب یک برنامه به من بدینش
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Namespace testapp
Public Class Form1
Inherits Form
Private components As IContainer = Nothing
Private button1 As Button
Private button3 As Button
Private button2 As Button
Private button4 As Button
Protected Override ReadOnly Property CreateParams() As CreateParams ‘must have this
Get
Dim param As CreateParams = MyBase.CreateParams
param.ExStyle = param.ExStyle Or 134217728
Return param
End Get
End Property
Protected Override Sub Dispose(disposing As Boolean)
If disposing AndAlso Me.components IsNot Nothing Then
Me.components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Private Sub InitializeComponent()
Me.button1 = New Button()
Me.button3 = New Button()
Me.button2 = New Button()
Me.button4 = New Button()
MyBase.SuspendLayout()
Me.button1.Location = New Point(22, 133)
Me.button1.Name = button1
Me.button1.Size = New Size(54, 39)
Me.button1.TabIndex = 0
Me.button1.Text = a
Me.button1.UseVisualStyleBackColor = True
Me.button1.Click += New EventHandler(Me.button1_Click)
Me.button3.Location = New Point(142, 133)
Me.button3.Name = button3
Me.button3.Size = New Size(54, 39)
Me.button3.TabIndex = 2
Me.button3.Text = d
Me.button3.UseVisualStyleBackColor = True
Me.button3.Click += New EventHandler(Me.button3_Click)
Me.button2.Location = New Point(82, 88)
Me.button2.Name = button2
Me.button2.Size = New Size(54, 39)
Me.button2.TabIndex = 3
Me.button2.Text = w
Me.button2.UseVisualStyleBackColor = True
Me.button2.Click += New EventHandler(Me.button2_Click)
Me.button4.Location = New Point(82, 133)
Me.button4.Name = button4
Me.button4.Size = New Size(54, 39)
Me.button4.TabIndex = 4
Me.button4.Text = s
Me.button4.UseVisualStyleBackColor = True
Me.button4.Click += New EventHandler(Me.button4_Click)
MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
MyBase.AutoScaleMode = AutoScaleMode.Font
MyBase.ClientSize = New Size(528, 262)
MyBase.Controls.Add(Me.button4)
MyBase.Controls.Add(Me.button2)
MyBase.Controls.Add(Me.button3)
MyBase.Controls.Add(Me.button1)
MyBase.Name = Form1
Me.Text = Form1
MyBase.TopMost = True
MyBase.Load += New EventHandler(Me.Form1_Load)
MyBase.ResumeLayout(False)
End Sub
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
End Sub
Private Sub button2_Click(sender As Object, e As EventArgs)
SendKeys.Send(w)
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
SendKeys.Send(a)
End Sub
Private Sub button4_Click(sender As Object, e As EventArgs)
SendKeys.Send(s)
End Sub
Private Sub button3_Click(sender As Object, e As EventArgs)
SendKeys.Send(d)
End Sub
End Class
End Namespace