Создание кода к динамическим контролам - VB

  1. Я хочу узнать: как можно создать код динамическим путем. Ну к примеру создаю я пункт меню


textual

Код к задаче: «Создание кода к динамическим контролам - VB»

i% = mnuFileArray.Ubound + 1  ' следующий номер индекса после самого
                              ' большого уже существующего
Load mnuFileArray(i%)  ' создание нового элемента массива меню
mnuFileArray(i%).Caption = "NewArray" & i%  '  название команды
...
Unload mnuFileArray(1)        ' удалить элемент с индексом 1

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.385 из 5



Похожие ответы
  1. Доброго вам всем дня дорогие форумчане! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public a As Byte Public b As Byte Public c As Byte Public d As Byte   Private Sub Text1_Change() c = Len(Text1.Text) If c > 4 Then MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text2_Change() a = Len(Text2.Text) If a > 10 Then MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text3_Change() b = Len(Text3.Text) If b > 10 Then MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   Private Sub Text9_Change() d = Len(Text9.Text) If d > 14 Then MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   .........ну и так далее

  1. Всем привет! Задался целью выяснить почему программа, которую я написал тормозит, точнеее какие ее блоки... Может кому пригодится, простой анализатор скорости работы кода. Выдает действительный результата три знака после запятой. Погрешность измериний не большая. Втулил интерфейс аля Win10, тени от формы (корректно и быстро отрисовываюстя), перетаскивание формы...код формы

  1. Помогите пожалуйста перевести код с паскаля на VB.Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 var a,b:array[1..4] of real;     x,p,s,z:real;     i,j,k:byte; begin writeln('Введите элементы вектора А'); for i:=1 to 4 do  begin   write('a[',i,']=');   readln(a[i]);  end; writeln('Введите элементы вектора B'); for i:=1 to 3 do  begin   write('b[',i,']=');   readln(b[i]);  end; write('x='); readln(x); k:=0; i:=1; p:=1; while(i<=4)and(k=0)do if a[i]+x<0 then k:=1 else  begin   p:=p*sqrt(a[i]+x);   inc(i);  end; if k=1 then  begin   writeln('Значение Z не определено');   exit;  end; k:=0; j:=1; s:=0; for j:=1 to 3 do if b[j]<0 then k:=1 else s:=s+sqrt(b[j]); if (k=1)or (s=0) then  begin   writeln('Значение Z не определено');   exit;  end; z:=p/s; write('Z=',z:0:3) end.

  1. есть задача 1) пусть в определенную папку "TEST" на диск С мне поступают файлы формата: YYMMDDHHMMSS.DAT , где YY -год, MM -месяц, DD-день, HH-часы создания файлов. 2) необходимо переместить эти файлы на диск D по пути: D:\YY\MM\DD\HH\MM\SS где YY,MM,DD.... названия папок по которым должны быть расфасованы эти файлы в соответствии с датой создания. как переместить файлы или их скопировать я знаю, но как мне их расфасовать по необходимым папкам по дате создания ??? я понимаю так - мне нужно считывать части названия файла, проверять и сравнивать их значение, какой файл созданный ранее и соответственно их фасовать, но у меня не получается. кто может написать как это сделать??

  1. Возможно ли создать портативную программу, в которой значения выпадающих списков или других элементов будут храниться в таблице данных? Я чайник, который знаком только с реестром и другими вариантами...

  1. Доброго дня или ночи знатокам! Помогите в проблеме! Я новичок в ООП и VB и хотелось бы понять принцип работы классов на примере статьи, которые я нашел в сети(http://www.codenet.ru/progr/vbasic/vb_objects.php ), где объясняется суть класса на простом примере, который приведен ниже. Я постарался в точности воспроизвести пример из статьи (за исключением некоторых своих безобидных вставок в целя трассировки)и при его прогоне выплывает ошибка(метод или член данных не найден), т.е. в Form2 этого свойства нет, а почему? Я где то ошибся или ошибка в статье? Спасибо! ------------------------ Form1 -----------------------

  1. Добрый день! Уважаемые форумчане! Подскажите, пожалуйста...Попросили помочь с заданием... "Эврестическая задача. Составить VB-проект для обменного пункта валют, если известна сумма в гривнах и обменные курсы для фунта стерлинга и доллара" В чем это делать? Так понимаю проект VB по сути практически тоже что и VBA для аксесе и пр. Открыл Visual Studio 2015 , создал проект VB классической приложение для Windows, а там совсем другое по сравнению с VBA. может я что ни так открыл? В чем это надо писать?

  1. Интересует перевод такого момента: читаю файл до конца:QBasic/QuickBASIC1 2         char buffer[500];         fscanf(fp, "%s[^ ]", buffer);хотелось бы узнать как можно перевести fscanf...

  1. Здравствуйте. Имею такую проблему. До некоторого времени с basic знакомиться не приходилось, но вот пришлось. Учебное задание, не для себя и мопед не мой, если что. По заданию в методичке нужно написать программу на бейсике для расчета полива картошки или еще чего. В этой же методичке дан пример кода: