У меня проблемы с кодированием некоторых кнопок. Это то, что у меня есть до сих пор:
Public Class Form1
Dim Button(12) As Button
Dim X As Integer
Private Sub EventName()
Dim message, title, defaultValue As String
Dim myValue As Object
If Label4.Text = "Admin" Then
' Set prompt.
Message = "Enter Product Name"
' Set title.
title = "Product Name"
defaultValue = "" ' Set default value.
'Display message, title, and default value.
myValue = InputBox(Message, title, defaultValue)
Button(X).Text = myValue
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button12.Click, Button11.Click, Button10.Click
'Dim message, title, defaultValue As String
'Dim myValue As Object
For Me.X = 1 To 10
>>>>> <<<<<<<
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button(1) = Button1
Button(2) = Button2
Button(3) = Button3
Button(4) = Button4
Button(5) = Button5
Button(6) = Button6
Button(7) = Button7
Button(8) = Button8
Button(9) = Button9
Button(10) = Button10
Button(11) = Button11
Button(12) = Button12
End Sub
Что я пытаюсь сделать, так это то, что если я нажму кнопку 7, появится окно ввода, в котором пользователь может ввести имя кнопки. Независимо от того, что я пробовал между >>>>> <<<<<
, я не могу понять это правильно.
>>>>> <<<<<
, что не сработало? - person Gaffi   schedule 27.07.2012InputBox
аргументы не совсем совпадают с вашими. Удалите цикл и перейдите прямо к этому методу. - person Gaffi   schedule 27.07.2012