#1  
قديم 04-10-2016, 01:50 AM
عضو جديد
رقم العضوية: 698153
تاريخ التسجيل: Nov 2015
المشاركات: 13
تلقى دعوات الى: 1 موضوع
إعجاب: 0
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 1 موضوع
مستوى التقييم: 0
ارجو منكم اكواد لوحة المفاتيح بواسطة الفيجوال ستوديو



ارجو منكم اكواد لوحة المفاتيح بواسطة الفيجوال ستوديو


ارجو منكم اكواد لوحة المفاتيح بواسطة الفيجوال ستوديو
ارجو منكم بعض اكواد لوحة المفاتيح لتصميمها بواسطة الفيجوال ستوديو 2013
شكرا



المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
مشكل عدم إشتغال ازرار لوحة المفاتيح عند النقر بالفأرة في Autoplay ___ ارجو المساعدة cessilou ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 4 18-02-2015 02:08 PM
طلب اكواد الفيجوال alomar_4 لغات البرمجة 0 17-05-2013 10:39 PM
مجموعة من اكواد الفيجوال بيسيك El-Safwa لغات البرمجة 10 11-05-2009 11:20 AM
اقوم بعمل برنامج بواسطة الفيجوال بيسك لكن تغلقت في شوية اكواد المهرة لغات البرمجة 1 24-04-2005 11:04 AM
تعلم العزف بواسطة لوحة المفاتيح مع Keyboard Music abomishary برامج تحرير الفيديو وتحويل الصيغ وبرامج الصوتيات والملتيميديا 7 20-01-2005 12:48 PM
  #2  
قديم 04-10-2016, 03:26 AM
عضوية الشرف
رقم العضوية: 87092
تاريخ التسجيل: Jun 2007
المشاركات: 11,163
تلقى دعوات الى: 4192 موضوع
إعجاب: 4,577
تلقى 13,946 إعجاب على 3,439 مشاركة
تلقى دعوات الى: 4192 موضوع
مستوى التقييم: 373



اول مرة اسمع عن اكواد للوحة المفاتيح فكرتها غريبة

اتفضل وجدت هذه الاكواد وشرح فديو

الاكواد

http://www.mediafire.com/file/u5i9o1...l+By+NiHrO.txt

او

Public Class Form1
Public Declare Function IsWindowVisible Lib "user32.dll" _
Alias "IsWindowVisible" (ByVal hwnd As Integer) As Boolean
Public Declare Function GetWindow Lib "user32.dll" _
Alias "GetWindow" (ByVal hwnd As Integer, _
ByVal wCmd As Integer) As Integer
Public Declare Function GetWindowLong Lib "user32.dll" _
Alias "GetWindowLongA" (ByVal hwnd As Integer, _
ByVal nIndex As Integer) As Integer
Public Declare Function GetParent Lib "user32.dll" _
Alias "GetParent" (ByVal hwnd As Integer) As Integer
Public Declare Function SetForegroundWindow Lib "user32.dll" _
Alias "SetForegroundWindow" (ByVal hwnd As Integer) As Integer
Private RowOne As String() = {"`", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "="}
Private RowTwo As String() = {"q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]"}
Private RowThree As String() = {"a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'", "#"}
Private RowFour As String() = {"\", "z", "x", "c", "v", "b", "n", "m", ",", ".", "/"}
Private CapsLock As New CheckBox
Private Key, Special As String
Private Windows As New ArrayList
Private Window As IntPtr
Private Sub Key_Special(ByVal Sender As Button, _
ByVal e As System.EventArgs)
If Special = "" Then
Special = Sender.Tag
Else
Special = ""
End If
End Sub
Private Sub Key_Click(ByVal Sender As Button, _
ByVal e As System.EventArgs)
Key = Sender.Tag
If Key = "{SPACE}" Then Key = " "
If Window <> 0 Then
SetForegroundWindow(Window)
SendKeys.SendWait(Special & IIf(CapsLock.Checked _
And Not Special <> "^", _
UCase(Key), Key))
SetForegroundWindow(Window)
End If
End Sub
Private Function IsActiveWindow(ByVal hWnd As Integer) As Boolean
Dim IsOwned As Boolean
Dim Style As Integer
IsOwned = GetWindow(hWnd, 4) <> 0
Style = GetWindowLong(hWnd, -20)
If Not IsWindowVisible(hWnd) Then Return False
If GetParent(hWnd) <> 0 Then Return False
If (Style And &H80) <> 0 And Not IsOwned Then Return False
If (Style And &H40000) = 0 And IsOwned Then Return False
If Process.GetCurrentProcess.MainWindowHand le = hWnd Then Return False
Return True
End Function
Private Sub KeyboardButton(ByVal Width As Integer, ByVal Height As Integer, _
ByVal Top As Integer, ByVal Left As Integer, _
Optional ByVal Text As String = "", _
Optional ByVal Tag As String = "", _
Optional ByVal Special As Boolean = False)
Dim Button As New Button
Button.Size = New Size(Width, Height)
Button.Location = New Point(Left, Top)
Button.Text = Text
Button.Tag = Tag
If Special Then
AddHandler Button.Click, AddressOf Key_Special
Else
AddHandler Button.Click, AddressOf Key_Click
End If
Controls.Add(Button)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Col As Integer
For Col = 0 To 12
KeyboardButton(25, 25, 40, Col * 25 + 4, _
RowOne(Col), RowOne(Col))
Next
KeyboardButton(50, 25, 40, Col * 25 + 4, "BkSp", "{BACKSPACE}")
KeyboardButton(36, 25, 66, 4, "Tab", "{TAB}")
For Col = 0 To 11
KeyboardButton(25, 25, 66, Col * 25 + 40, _
UCase(RowTwo(Col)), RowTwo(Col))
Next
KeyboardButton(39, 25, 66, 36 + Col * 25 + 4, "?", "{ENTER}")
CapsLock.Appearance = Appearance.Button
CapsLock.Size = New Size(48, 25)
CapsLock.Location = New Point(4, 92)
CapsLock.Text = "Caps"
Controls.Add(CapsLock)
For Col = 0 To 11
KeyboardButton(25, 25, 92, Col * 25 + 52, _
UCase(RowThree(Col)), RowThree(Col))
Next
KeyboardButton(27, 25, 92, 48 + Col * 25 + 4, "", "{ENTER}")
KeyboardButton(38, 25, 118, 4, "Shift", "+", True)
For Col = 0 To 10
KeyboardButton(25, 25, 118, Col * 25 + 42, _
UCase(RowFour(Col)), RowFour(Col))
Next
KeyboardButton(62, 25, 118, Col * 25 + 42, "Shift", "+", True)
' Row Five
KeyboardButton(50, 25, 144, 4, "Ctrl", "^", True)
KeyboardButton(50, 25, 144, 54, "Alt", "%", True)
KeyboardButton(154, 25, 144, 104, "Space", "{SPACE}")
KeyboardButton(44, 25, 144, 258, "Home", "{HOME}")
KeyboardButton(44, 25, 144, 302, "End", "{END}")
KeyboardButton(33, 25, 144, 346, "Del", "{DEL}")
End Sub
Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown
Windows.Clear()
ComboBox1.Items.Clear()
For Each Item As Process In Process.GetProcesses
If IsActiveWindow(Item.MainWindowHandle) _
And Item.MainWindowTitle <> "" Then
Windows.Add(Item.MainWindowHandle)
ComboBox1.Items.Add(Item.MainWindowTitle )
End If
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem <> Nothing Then
Window = Windows.Item(ComboBox1.SelectedIndex)
End If
End Sub
End Class

الشرح فيدو

http://www.youtube.com/watch?v=2LNGcenNyq0

  #3  
قديم 04-10-2016, 01:00 PM
عضو جديد
رقم العضوية: 698153
تاريخ التسجيل: Nov 2015
المشاركات: 13
تلقى دعوات الى: 1 موضوع
إعجاب: 0
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 1 موضوع
مستوى التقييم: 0



بارك الله فيك اخى ابوعمر انا اقصد لما اريد تصميم لوحة مفاتيح بواسطة فيجوال ستوديو 2013 احتاج الى كتابة كود لكل حرف او رقم لكى يتم ترجمته فى النهاية الى حرف او رقم
سؤالى هو اذا اردت تصميم الحرف باء مثلا ماهو الكود الذى يجب كتابته فى الفيجوال ستوديو 2013 ليتم ترجمته الى حرف باء

شكرا
Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.
DamasGate English