Printable View
من 9 تا دکمه رو در یه سطر کنار هم چیدم . دوباره 9 تا دکمه ی دیگه زیر این دکمه ها توی یه سطر چیدم . حالا میخوام وقتی فوکوس روی یکی
از دکمه هاست وقتی دکمه سمت راست کیبور که همون دکمه ای هست که keycode اون Right هست رو فشار دادم فوکوس بره روی دکمه ی
سمت راستی همون دکمه و وقتی کلید سمت پایین رو فشار دادم فوکوس بره روی دکمه زیرین اون دکمه .
رو الگوریتمش که مشکل نداری؟کد:button2.Focus();
مثله اينكه شما اصلا متوجه منظورم نشديد من ميخوام وقتي كه دكمه سمت راست صفحه كليد با همون توضيحاتي كه دادم رو فشار دادم فوكوس بره روي دكمه سمته راستش و وقتي دكمه سمت پايين رو فشار دادم فوكوس بره روي دكمه پاييننقل قول:
خوب دقیق تر بگو مشکلت کجاست. راستش من تو مطالبی که نوشتی هیچ پیچیدگی خاصی ندیدم.
شاید من هنوز متوجه مشکلت نشدم وگرنه تغییر فوکوس با همین تابعی هست که گفتم.
با دستور if در داخل یک متودی که نام کنترل را دریافت کند میشه کار رو راه انداخت ولی من فکر میکنم راه اصولی تری وجود داشته باشه.نقل قول:
بنده هم خیلی مشتاقم بدونم جواب سوال دوستمون چی هست.
سلام دوستان خسته نباشید:11:.
روشی که براتون میگم خیلی ساده و راحته ولی شما میتونید از بسیاری از روشها مثل آرایه ها و لیست ها استفاده کنید.
این روش از طریق نام کنترل ها خواستتونو برآورده میکنه.شاید بعدها بدردتون بخوره که کنترل هاتونو درست نام گذاری کنید.
به دو جدول های زیر دقت کنید:
جدول اول کنترل هایی هستن که رو فرم شما قرار دارند...کد:textbox1 textbox2 textbox3 textbox4
textbox5 textbox textbox7 textbox8
textbox9 textbox10 textbox11 textbox12
textbox13 textbox14 textbox15 textbox16
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
و جدول دوم شماره هایی هستن که ما لازم داریم و ته هر کنترل ذکر شده اند.
اول یه مثال میزنم:
فرض کنید فکوس ما رو کنترل textbox6 است:
شما اگه بخواهید به راست برید باید به 6 یکی اضافه کنید که بشه 7.کد:1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
اگه بخواهید به چپ برید باید از 6 یکی کم کنید = 5.
اگه بخواهید به بالا برید باید از 6 چهارتا کم کنید =2.
اگه بخواهید به پایین برید باید به 6 چهار تا اضافه کنید که بشه 10
تا اینجا که همه متوجه شدید.
حالا چطوری ما این الگوریتم رو روی فرم پیاده سازی کنیم؟
تابع زیر:
یک کنترل گرفته و ایندکس اونو برمیگردونه مثلاً textbox6 ایندکس 6 برمیگردونه که این تابع در اصل عدد 6 رو از نام کنترل textbox6 جدا میکنه و به ما برمیگردونه.کد:private int GetIndex(Control c)
{
return Convert.ToInt32(c.Name.Substring(7));
}
تابع زیر:
یک ایندکس میگیره و کنترل رو توی فرم پیدا میکنه و به ما برمیگردونه.کد:private Control GetControl(int index)
{
return this.Controls["textbox" + index.ToString()];
}
مثلاً ما اگه ایندکس 6 بدیم اون متن textbox رو به اول عدد 6 اضافه میکنه که بشه textbox6 بعد اونو توی فرم جستجو و به ما میده.
یک کنترل بالای کدها تعریف کنید:
بعد از اجرای فرم اون کادر متنی که میخواهید اول از روش حرکت کنید رو بریزید توی اشاره گری که درست کردیم:کد:Control fc;
الان textBox1 توی اشاره گر رفته میتونید فکوسشم بکنید.کد:fc = textBox1;
این کد رو توی رویداد KeyDown فرم خودتون بذارید:کد:fc.Focus();
خط اول:کد:int index = GetIndex(fc);
switch (e.KeyCode)
{
case Keys.Down:
{
index += 4;
break;
}
case Keys.Up:
{
index -= 4;
break;
}
case Keys.Right:
{
index += 1;
break;
}
case Keys.Left:
{
index -= 1;
break;
}
}
Control ctl = GetControl(index);
if (ctl != null)
{
ctl.Focus();
fc = ctl;
}
با تابع GetIndex یی که ساختیم بالا توضیح دادم.ایندکس کنترل فکوس شده رو میریزیم توی متغیر index.کد:int index = GetIndex(fc);
پس چون ما اولین کنترل رو یعنی textbox1 رو توی fc ریختیم پس به ما عدد 1 رو برمیگردونه.
switch هم که همه استادید و توضیح نمیخواد میبینه روی کدوم یک از کنترلهای حرکت کلیک کردید بعد عملیات جمع و کم رو روی ایندکس انجام میده.
مثلاً ما رو فلش سمت راست کلیک کردیم ایندکس ما هم 1 هست این میاد یکی به ایندکس اضافه میکنه و میشه 2.کد:Control ctl = GetControl(index);
با تابع GetControl ایندکس 2 رو جستجو و کنترلش رو میگیرم.
با شرط زیر هم چک میکنیم که کنترل خالی نباشه بعد هم کنترل پیدا شده رو فکوس میکنیم:
دیگه از این راحت تر نمیشد توضیح بدم.کد:if (ctl != null)
{
ctl.Focus();
fc = ctl;
}
موفق باشید:11:.
یه کد رو میزارم شاید بهتر متوجه بشید . وقتی برنامه رو اجرا کردیدا دکمه های جهت دار کیبورد رو فشار بدید مثلا دکمه ای که فلش سمت راست داره .
راستش من یه کلاس دارم که میتونه همون کاری رو که بهتون گفتم رو انجام بده ولی من می خوام که این کلاس علاوه بر این که این کار روی انجام بده یه کاری دیگه ای هم بکنه . من میخوام وقتی که روی یکی از دکمه ها کلیک می کنم اگه مقداری در خاصیت Text این دکمه نبود عدد یک در درون این خاصیت دکمه نوشته بشه و اگه عددی در درون خاصیت Text این دکمه وجود داشت مقدارش به علاوه یک بشه یعنی اگه 2 بود بشه 3 و وقتی که خاصیت تکستش برابر با 9 بود بشه یک و همین طور وقتی روی دکمه کلیک راست کردم اگه مقداری نداشت بشه 9 و اگه مقداری داشت بشه منهای یک یعنی اگه 2 بود بشه 1 .
اینم کد کلاس :
یه کلاس ایجاد کنید و کد زیر رو توش کپی کنید :
و حالا کد زیر رو هم توی فرم کپی کنید :کد:Public Class CellButton
Inherits Button
Enum CellKey
KeyDelete = 0
Key1 = 1
Key2 = 2
Key3 = 3
Key4 = 4
Key5 = 5
Key6 = 6
Key7 = 7
Key8 = 8
Key9 = 9
KeyUp
KeyDown
KeyLeft
KeyRight
End Enum
Public ReadOnly x As Integer
Public ReadOnly y As Integer
Public box As Integer
Public v As Integer
Private form1 As Form1
Public forcedVal As Integer
Public played As Boolean
Public solValues As Integer
Sub New(ByVal form1 As Form1, ByVal x As Integer, ByVal y As Integer)
Me.form1 = form1
Me.x = x
Me.y = y
box = (y \ 3) * 3 + (x \ 3)
End Sub
Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData
Case Keys.Up
RaiseEvent KeyPressed(Me, CellKey.KeyUp)
Return True
Case Keys.Down
RaiseEvent KeyPressed(Me, CellKey.KeyDown)
Return True
Case Keys.Left
RaiseEvent KeyPressed(Me, CellKey.KeyLeft)
Return True
Case Keys.Right
RaiseEvent KeyPressed(Me, CellKey.KeyRight)
Return True
Case Keys.Delete
RaiseEvent KeyPressed(Me, CellKey.KeyDelete)
Return True
Case Else
Return MyBase.ProcessDialogKey(keyData)
End Select
End Function
Protected Overrides Function ProcessDialogChar(ByVal charCode As Char) As Boolean
Dim k As CellKey = CellKey.Key1
Select Case charCode
Case "1"c : k = CellKey.Key1
Case "2"c : k = CellKey.Key2
Case "3"c : k = CellKey.Key3
Case "4"c : k = CellKey.Key4
Case "5"c : k = CellKey.Key5
Case "6"c : k = CellKey.Key6
Case "7"c : k = CellKey.Key7
Case "8"c : k = CellKey.Key8
Case "9"c : k = CellKey.Key9
Case "0"c, "."c, " "c : k = CellKey.KeyDelete
Case Else
Exit Function
End Select
RaiseEvent KeyPressed(Me, k)
Return True
End Function
Public Event KeyPressed(ByVal sender As CellButton, ByVal key As CellKey)
Public Sub SetForcedVal(ByVal v As Integer)
forcedVal = v
If v > 0 Then
'Text = CStr(v)
ForeColor = Color.Red
Me.v = v
Me.solValues = 1 << (v - 1)
Else
'Text = "."
ForeColor = Color.Black
Me.solValues = 0
Me.v = 0
End If
Me.Refresh()
End Sub
Private Shared bigfont As New Font(FontFamily.GenericSansSerif, 20, FontStyle.Bold)
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
For i As Integer = 1 To 9
Dim vi As Integer = 1 << (i - 1)
If Me.solValues = vi Then
e.Graphics.DrawString(CStr(i), bigfont, New SolidBrush(Me.ForeColor), 5, 4)
Exit Sub
End If
Next
If v > 0 Then e.Graphics.DrawString(CStr(Me.v), bigfont, New SolidBrush(Color.LightGray), 5, 4)
If (Me.solValues And 1 << 0) <> 0 Then e.Graphics.DrawString("1", Me.Font, New SolidBrush(Me.ForeColor), 5, 4)
If (Me.solValues And 1 << 1) <> 0 Then e.Graphics.DrawString("2", Me.Font, New SolidBrush(Me.ForeColor), 15, 4)
If (Me.solValues And 1 << 2) <> 0 Then e.Graphics.DrawString("3", Me.Font, New SolidBrush(Me.ForeColor), 25, 4)
If (Me.solValues And 1 << 3) <> 0 Then e.Graphics.DrawString("4", Me.Font, New SolidBrush(Me.ForeColor), 5, 14)
If (Me.solValues And 1 << 4) <> 0 Then e.Graphics.DrawString("5", Me.Font, New SolidBrush(Me.ForeColor), 15, 14)
If (Me.solValues And 1 << 5) <> 0 Then e.Graphics.DrawString("6", Me.Font, New SolidBrush(Me.ForeColor), 25, 14)
If (Me.solValues And 1 << 6) <> 0 Then e.Graphics.DrawString("7", Me.Font, New SolidBrush(Me.ForeColor), 5, 24)
If (Me.solValues And 1 << 7) <> 0 Then e.Graphics.DrawString("8", Me.Font, New SolidBrush(Me.ForeColor), 15, 24)
If (Me.solValues And 1 << 8) <> 0 Then e.Graphics.DrawString("9", Me.Font, New SolidBrush(Me.ForeColor), 25, 24)
End Sub
End Class
کد:Public Cells(8, 8) As CellButton
Const ZOOM As Integer = 41
Const MARG As Integer = 4
Sub cellsKeyPressed(ByVal c As CellButton, ByVal k As CellButton.CellKey)
Dim restartSearch As Boolean = False
Dim x As Integer = c.x
Dim y As Integer = c.y
Select Case k
Case CellButton.CellKey.KeyLeft
x -= 1
If x < 0 Then x += 9
Case CellButton.CellKey.KeyRight
x += 1
If x >= 9 Then x -= 9
Case CellButton.CellKey.KeyUp
y -= 1
If y < 0 Then y += 9
Case CellButton.CellKey.KeyDown
y += 1
If y >= 9 Then y -= 9
Case CellButton.CellKey.Key1 To CellButton.CellKey.Key9
Dim fv As Integer = k - CellButton.CellKey.KeyDelete
If fv <> c.forcedVal Then
c.SetForcedVal(fv)
restartSearch = True
End If
Case CellButton.CellKey.KeyDelete
If c.forcedVal <> 0 Then
c.SetForcedVal(0)
restartSearch = True
End If
Case Else
Exit Sub
End Select
cells(x, y).Focus()
' If restartSearch Then SearchThread1.Restart()
End Sub
Public Function pos(ByVal d As Integer) As Integer
Select Case d
Case 0 To 2
Return d * ZOOM
Case 3 To 5
Return d * ZOOM + MARG
Case 6 To 8
Return d * ZOOM + 2 * MARG
End Select
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim p As CellButton
Dim k As Integer = 0
For y As Integer = 0 To 8
For x As Integer = 0 To 8
p = New CellButton(Me, x, y)
k += 1
p.Location = New Point(10 + pos(x), 80 + pos(y))
p.Size = New Size(ZOOM, ZOOM)
'p.Text = "."
Me.Controls.Add(p)
Cells(x, y) = p
p.Font = Me.Font
AddHandler p.KeyPressed, AddressOf cellsKeyPressed
Next
Next
End Sub
ممنون دستتتون درد نكنه . از همون تكست باكس استفاده كردم.