Присвоить имя динамически создаваемой кнопке

@vuhu · Регистрация: 13.11.2010

Author24 — интернет-сервис помощи студентам

VB.NET

Public Class Form1
    Dim DN As Integer 'konkretni den
    Dim DNS As Integer 'kolichestvo dnei
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DN = 0
        DNS = 0
    End Sub
    Private Sub BDAdd_Click(sender As System.Object, e As System.EventArgs) Handles BDAdd.Click
        DNS = DNS + 1
        DN = DNS
        BDAdd.Left = BDAdd.Left + 36
        Dim BD As Button
        BD = New Button
        With BD
            .Left = 94 + 36 * (DNS)
            .Top = 30
            .Text = DNS
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            .BackgroundImage = tcv10.My.Resources.Resources.b
            .BackgroundImageLayout = ImageLayout.Stretch
            Me.Controls.Add(BD)
            .Visible = True
        End With
    End Sub
End Class

est BDAdd knopka, pri najatii kotoroi sozdaiotsia novaia knopka. nujno chto pri sozdanii novoi knopki emu presvoivalas imia BD(DNS). a na najatia na novoi knopke DN bralo znachenia cifr iz imeni knopki ().

P.S. podskajite pojaluista sait gde ia smogbi na latinice na ruskom pechatat.

P.P.S. za ranee sposibo

@OwenGlendower · 16.04.2015, 18:32

vuhu, для хранения информации связанной с элементом управления лучше использовать свойство Tag, а не Name.

VB.NET

Public Class Form1 
    
    Dim DN As Integer = 0 ' konkretni den
    Dim DNS As Integer = 0 ' kolichestvo dnei
    
    Private Sub BDAdd_Click(sender As System.Object, e As System.EventArgs) Handles BDAdd.Click
        DNS = DNS + 1
        DN = DNS
        
        Dim BD As New Button
        With BD
            .Left = 94 + 36 * DNS
            .Top = 30
            .Height = 30
            .Width = 30
            .ForeColor = Color.Blue
            .BackgroundImage = tcv10.My.Resources.Resources.b
            .BackgroundImageLayout = ImageLayout.Stretch
            .Text = DNS
            .Name = "BD" + DNS
            .Tag = DNS
        End With
        AddHandler BD.Click, AddressOf BD_Click
        
        Me.SuspendLayout()
        BDAdd.Left = BDAdd.Left + 36
        Me.Controls.Add(BD)
        Me.ResumeLayout()
    End Sub
    
    Private Sub BD_Click(sender As System.Object, e As System.EventArgs)
        Dim BD As Button = CType(sender, Button)
        DN = CType(BD.Tag, Integer)
    End Sub
End Class

@vuhu · 16.04.2015, 18:39 **[ТС]**

sposibo OwenGlendower

@OwenGlendower · 16.04.2015, 18:43

Не по теме:

vuhu, слово спасибо пишется через "а".

@vuhu · 16.04.2015, 19:16 **[ТС]**

k sojaleniu ne rabotaet:
.Name = "BD" + DNS -> Conversion from string "BD" to type 'Double' is not valid.

Добавлено через 28 минут
chto s etoi oshibkoi delat?

Памирыч · 16.04.2015, 19:22

vuhu, У Вас какие-то проблемы с набором кириллического текста?

@vuhu · 16.04.2015, 19:30 **[ТС]**

ok, ponial

.Name = "BD" & DNS

OwenGlendower, bolshoe спAсибо tebe

Добавлено через 1 минуту
Памирыч, u menia ruskoi klaviaturi vobshe net. podskajite pojaluista sait gde ia smogbi na latinice na ruskom pechatat.

@edward_freedom · 16.04.2015, 19:42

Не по теме:

vuhu, не поверишь, гугл знает все! клик

Памирыч · 16.04.2015, 19:53

Сообщение от vuhu

u menia ruskoi klaviaturi vobshe net.

В таком случае разрешается писать транслитом.

@vuhu · 16.04.2015, 23:51 **[ТС]**

VB.NET

Public Class Form1
    Dim DN As Integer 'konkretuli dRe
    Dim DNS As Integer 'dReebis raodenoba
    Dim BD() As Button 'axali dRis knopkis sheqmna
    Dim l1 As Label 'es droebitia dns rom davinaxo
    Dim l2 As Label 'esec droebitia dacherili knopkis saxeli rom davinaxo
    'Dim BDAdd As Button 'dRis damateba
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DN = 0
        DNS = 0
        BDAdd = New Button
        With BDAdd
            .Left = 130
            .Top = 30
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = "+"
            AddHandler BDAdd.Click, AddressOf BDAdd_Click
            Me.Controls.Add(BDAdd)
            .Visible = True
        End With
        l1 = New Label
        l1.Text = DNS
        l1.Top = 100
        l1.Left = 100
        l1.Visible = True
        Me.Controls.Add(l1)
        l2 = New Label
        l2.Text = 0
        l2.Top = 130
        l2.Left = 100
        l2.Visible = True
        Me.Controls.Add(l2)
    End Sub
    Private Sub BDAdd_Click(sender As System.Object, e As System.EventArgs)
        DNS = DNS + 1
        DN = DNS
        BDAdd.Left = BDAdd.Left + 36
        ReDim Preserve BD(DNS)
        BD(DNS) = New Button
        With BD(DNS)
            .Left = 94 + 36 * (DNS)
            .Top = 30
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = DNS
            .Name = "BD" & DNS
            .Tag = DNS
            Me.Controls.Add(BD(DNS))
            .Visible = True
        End With
        AddHandler BD(DNS).Click, AddressOf BDDNS_click
        Me.SuspendLayout()
        Me.Controls.Add(BD(DNS))
        Me.ResumeLayout()
        l1.Text = DNS
    End Sub
   
    Private Sub BDDNS_click(sender As Object, e As EventArgs)
        DN = CType(BD(DN).Tag, Integer)
        l1.Text = DN
        Dim i As Integer
        For i = 1 To DNS
            BD(i).ForeColor = Color.Blue
        Next
        l1.Text = DN
        BD(DN).ForeColor = Color.Green
        l2.Text = BD(DN).Name
    End Sub
End Class

у меня ошибка. я создал 2 лабела чтоб отслеживать DNS и имя кнопки. но какую кнобку-бы не нажимал обращается к последней

Добавлено через 3 минуты
Памирыч, кстати, транслит нашёл. саит: translit.net

Добавлено через 1 минуту
да, вопрос: как исправить ошибку?

@OwenGlendower · 16.04.2015, 23:57

vuhu, замени строку №66 на

VB.NET

1	DN = CType(CType(sender, Button).Tag, Integer)

@vuhu · 17.04.2015, 00:29 **[ТС]**

сработала

огромное спасибо тебе OwenGlendower, буду отписиватся по мере продвижения

Добавлено через 7 минут
вот и второй вопрос созрел

я добавляю неограниченное количество кнопок, в кокой-то момент мне не будет хватать ширины экрана. а экран у разных машин разные... как получить значение ширины экрана?

Добавлено через 5 минут
а, всё, догадался, возьму ширину формы

вопрос уже не актуален

@FlegmaSpirit · 17.04.2015, 00:37

Сообщение от vuhu

как получить значение ширины экрана?

VB.NET

1 2	Screen.PrimaryScreen.WorkingArea.Height Screen.PrimaryScreen.WorkingArea.Width

Сообщение от vuhu

а, всё, догадался, возьму ширину формы вопрос уже не актуален

Ну вдруг всё же пригодится...

@OwenGlendower · 17.04.2015, 01:14

Сообщение от FlegmaSpirit

Screen.PrimaryScreen.WorkingArea.Height
Screen.PrimaryScreen.WorkingArea.Width

Небольшая поправка - т.к. мониторов может быть несколько и форма совсем не обязательно будет на главном, то лучше получить экземпляр Screen с помощью Screen.FromControl и обращаться к его свойству WorkingArea.

@vuhu · 18.04.2015, 00:26 **[ТС]**

поздравьте товарищи

кнопки готовы

если есть идеи по оптимизации приму с удовольствием

VB.NET

Public Class Form1
    Dim DN As Integer 'konkretuli dRe
    Dim DNS As Integer 'dReebis raodenoba
    Dim BD() As Button 'axali dRis knopkis sheqmna
    Dim BDLeft As Button
    Dim BDRight As Button
    Dim BLeft As Integer
    'Dim BDAdd As Button 'dRis damateba
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DN = 0
        DNS = 0
        BLeft = Math.Round((Me.Width - 400 - 94) / 36)
        BDAdd = New Button
        With BDAdd
            .Left = 130
            .Top = 30
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = "+"
            AddHandler BDAdd.Click, AddressOf BDAdd_Click
            Me.Controls.Add(BDAdd)
            .Visible = True
        End With
        BDLeft = New Button
        With BDLeft
            .Left = 94
            .Top = 30
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = "<"
            AddHandler BDLeft.Click, AddressOf BDLeft_Click
            Me.Controls.Add(BDLeft)
            .Visible = False
        End With
        BDRight = New Button
        With BDRight
            .Left = Me.Width - 364
            .Top = 30
            .ForeColor = Color.Blue
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = ">"
            AddHandler BDRight.Click, AddressOf BDRight_Click
            Me.Controls.Add(BDRight)
            .Visible = False
        End With
    End Sub
    Private Sub BDAdd_Click(sender As System.Object, e As System.EventArgs)
        DNS = DNS + 1
        DN = DNS
        If DNS >= BLeft Then
            BDAdd.Left = BLeft * 36 + 94
        Else
            BDAdd.Left = BDAdd.Left + 36
        End If
        ReDim Preserve BD(DNS)
        BD(DNS) = New Button
        With BD(DNS)
            .Left = 94 + 36 * (DNS)
            .Top = 30
            .ForeColor = Color.Green
            .Height = 30
            .Width = 30
            '.BackgroundImage = tcv10.My.Resources.Resources.b
            '.BackgroundImageLayout = ImageLayout.Stretch
            .Text = DNS
            .Name = "BD" & DNS
            .Tag = DNS
            Me.Controls.Add(BD(DNS))
            .Visible = True
        End With
        AddHandler BD(DNS).Click, AddressOf BDDNS_click
        If DNS >= BLeft Then
            BD(DNS).Left = 94 + 36 * (BLeft)
 
            Dim i1 As Integer
            For i1 = 1 To DNS
                BD(i1).Left = (DNS - (DNS - BLeft) - (DNS - i1)) * 36 + 58
                If BD(i1).Left < 94 Then BD(i1).Visible = False Else BD(i1).Visible = True
            Next
            BDLeft.Visible = True
        Else
            BDLeft.Visible = False
        End If
 
        Dim i As Integer
        For i = 1 To DNS - 1
            BD(i).ForeColor = Color.Blue
        Next
        Me.SuspendLayout()
        Me.Controls.Add(BD(DNS))
        Me.ResumeLayout()
    End Sub
    Private Sub BDDNS_click(sender As Object, e As EventArgs)
        DN = CType(CType(sender, Button).Tag, Integer)
        Dim i As Integer
        For i = 1 To DNS
            BD(i).ForeColor = Color.Blue
        Next
        BD(DN).ForeColor = Color.Green
    End Sub
    Private Sub BDLeft_Click(sender As System.Object, e As System.EventArgs)
        Dim i As Integer
        For i = 1 To DNS
            BD(i).Left = BD(i).Left + 36
            If BD(i).Left >= Me.Width - 400 Or BD(i).Left <= 94 Then
                BD(i).Visible = False
            Else
                BD(i).Visible = True
            End If
            If BD(1).Left = 130 Then
                BDLeft.Visible = False
            Else
                BDLeft.Visible = True
            End If
            If BD(DNS).Left >= Me.Width - 400 Then
                BDRight.Visible = True
            Else
                BDRight.Visible = False
            End If
        Next
    End Sub
    Private Sub BDRight_Click(sender As System.Object, e As System.EventArgs)
        Dim i As Integer
        For i = 1 To DNS
            BD(i).Left = BD(i).Left - 36
            If BD(i).Left >= Me.Width - 400 Or BD(i).Left <= 94 Then
                BD(i).Visible = False
            Else
                BD(i).Visible = True
            End If
            If BD(DNS).Left >= Me.Width - 400 Then
                BDRight.Visible = True
            Else
                BDRight.Visible = False
            End If
            If BD(1).Left = 130 Then
                BDLeft.Visible = False
            Else
                BDLeft.Visible = True
            End If
        Next
    End Sub
End Class

Добавлено через 8 часов 9 минут
Назрел второй вопрос

Созданы кнопки соответствующие дням, между ними можно переключатся, теперь на выбранный день нужно прикрепить событие. нап: экскурсия, гостиница, услуги гида и т.д. У каждого события свои параметры: цена, название, и.т.д. На выбранный день даются выбор события и после заполняешь форму события и нажимаешь на кнопку адд.
Соответственно нужно объявить параметры с тремя значениями Х(А)(В)(С) где А - день В - номер события, С - номер параметра.
Как это сделать?

Добавлено через 22 минуты
да, объявил переменные EN и ENS которым будет прeсвоеватся значение номер событии и всего событии.

Fakels · 18.04.2015, 01:24

Сообщение от vuhu

Соответственно нужно объявить параметры с тремя значениями Х(А)(В)(С)

Не совсем понял что именно нужно... а массив для этого дела не что не подойдет?

VB.NET

1	Dim Массив(x,2) as Integer

@vuhu · 19.04.2015, 00:39 **[ТС]**

VB.NET

Public DN As Integer 'vibranni den
    Public DNS As Integer 'kolichestvo dnei
    Public EN As Integer 'nomer sobitia
    Public ENS As Integer 'summa sobitii
    Public a()()() As String

а это уже usercontrol

VB.NET

 Private Sub PCAdd_Click(sender As System.Object, e As System.EventArgs) Handles PCAdd.Click
        Form1.ENS = Form1.ENS + 1
        Form1.EN = Form1.EN + 1
        Form1.a(DNS)(EN)(1) = CB1.Text
    End Sub

DNS is not declared
EN is not declared

что с ним делать?

Добавлено через 2 минуты

Сообщение от Fakels

Не совсем понял что именно нужно... а массив для этого дела не что не подойдет?

я массив объявил в этом формате: а()()()

Добавлено через 22 часа 58 минут
нашёл ошибку: Form1.a(DNS)(EN)(1) = CB1.Text -> Form1.a(Form1.DNS)(Form1.EN)(1) = CB1.Text как банально

@vuhu 2 / 2 / 0 Регистрация: 13.11.2010 Сообщений: 64
	17.04.2015, 00:29 [ТС]	12
	сработала огромное спасибо тебе OwenGlendower, буду отписиватся по мере продвижения Добавлено через 7 минут вот и второй вопрос созрел я добавляю неограниченное количество кнопок, в кокой-то момент мне не будет хватать ширины экрана. а экран у разных машин разные... как получить значение ширины экрана? Добавлено через 5 минут а, всё, догадался, возьму ширину формы вопрос уже не актуален 0

Присвоить имя динамически создаваемой кнопке

Решение

Решение

@vuhu 2 / 2 / 0 Регистрация: 13.11.2010 Сообщений: 64
	16.04.2015, 18:39 [ТС]	3
	sposibo OwenGlendower 0

@OwenGlendower
	16.04.2015, 18:43 #4
	Не по теме: vuhu, слово спасибо пишется через "а". 0

@vuhu 2 / 2 / 0 Регистрация: 13.11.2010 Сообщений: 64
	16.04.2015, 19:16 [ТС]	5
	k sojaleniu ne rabotaet: .Name = "BD" + DNS -> Conversion from string "BD" to type 'Double' is not valid. Добавлено через 28 минут chto s etoi oshibkoi delat? 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	16.04.2015, 19:22	6
	vuhu, У Вас какие-то проблемы с набором кириллического текста? 0

@vuhu 2 / 2 / 0 Регистрация: 13.11.2010 Сообщений: 64
	16.04.2015, 19:30 [ТС]	7
	ok, ponial .Name = "BD" & DNS OwenGlendower, bolshoe спAсибо tebe Добавлено через 1 минуту Памирыч, u menia ruskoi klaviaturi vobshe net. podskajite pojaluista sait gde ia smogbi na latinice na ruskom pechatat. 0

@edward_freedom
	16.04.2015, 19:42 #8
	Не по теме: vuhu, не поверишь, гугл знает все! клик 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	16.04.2015, 19:53	9
	Сообщение от vuhu u menia ruskoi klaviaturi vobshe net. В таком случае разрешается писать транслитом. 0

@OwenGlendower Администратор 17019 / 13372 / 5217 Регистрация: 17.03.2014 Сообщений: 27,342 Записей в блоге: 1
	17.04.2015, 01:14	14
	Сообщение от FlegmaSpirit Screen.PrimaryScreen.WorkingArea.Height Screen.PrimaryScreen.WorkingArea.Width Небольшая поправка - т.к. мониторов может быть несколько и форма совсем не обязательно будет на главном, то лучше получить экземпляр Screen с помощью Screen.FromControl и обращаться к его свойству WorkingArea. 1