kosar ranjbar
دوشنبه 31 فروردین 1388, 18:21 عصر
سلام برنامه زیر یک جدول ضرب 10 در 10 هنگامی که روی اعداد رفتیم ضرب با tooltip نشان دهد و merlin بتواند ان را بخواند حالا در تبدیل tooltip موندم
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 10
Dim b As New Button
b.Left = i * 30
b.Top = j * 30
b.Width = 30
b.Height = 30
b.Text = i * j
If (i + j) Mod 2 = 0 Then
b.BackColor = Color.DarkCyan
Else
b.BackColor = Color.White
End If
ToolTip1.SetToolTip(b, j.ToString & "*" & i.ToString & "=" & (i * j))
AxAgent1.Characters.Character("Merlin").Show()
AxAgent1.Characters.Character("merlin").MoveTo(411, 411)
GroupBox1.Controls.Add(b)
Next
Next
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 10
Dim b As New Button
b.Left = i * 30
b.Top = j * 30
b.Width = 30
b.Height = 30
b.Text = i * j
If (i + j) Mod 2 = 0 Then
b.BackColor = Color.DarkCyan
Else
b.BackColor = Color.White
End If
ToolTip1.SetToolTip(b, j.ToString & "*" & i.ToString & "=" & (i * j))
AxAgent1.Characters.Character("Merlin").Show()
AxAgent1.Characters.Character("merlin").MoveTo(411, 411)
GroupBox1.Controls.Add(b)
Next
Next
End Sub