Private Sub Command1_Click()
Dim iForm As VB.Form
For Each iForm In VB.Forms
Unload iForm
Next
End Sub
Вопросы по синтаксису
Всю жизнь программировал на С++ и Delphi, а тут заставили писать прогу на Visual Basic
Есть вопросы по синтаксису:
1. Многооконное приложение. На одном из окон стоит кнопочка "выход". Надо запрограммировать её, чтоб при нажатии приложение завершалось(завершался процесс). Как это сделать? Какая функция?
2. Есть какой-нибудь компонент в VB для работы с таблицами? Если есть, то в какой категории компонентов прячется? Надо организовать ввод данных в табличном виде. т.е. пользователь забивает табличку на форме, а программа уже из этой таблички считывает исходные данные.
3. Дайте пожалуйста пример, как массив передать в функцию в качестве параметра?
Есть вопросы по синтаксису:
1. Многооконное приложение. На одном из окон стоит кнопочка "выход". Надо запрограммировать её, чтоб при нажатии приложение завершалось(завершался процесс). Как это сделать? Какая функция?
2. Есть какой-нибудь компонент в VB для работы с таблицами? Если есть, то в какой категории компонентов прячется? Надо организовать ввод данных в табличном виде. т.е. пользователь забивает табличку на форме, а программа уже из этой таблички считывает исходные данные.
3. Дайте пожалуйста пример, как массив передать в функцию в качестве параметра?
1. Попробуйте для начала использовать что-то вроде :
Или :
2. В меню Project выберите команду Components и в появившемся окне поищите какой-нибудь Grid ()
3.
Код:
Или :
Код:
Private Declare Function TerminateProcess _
Lib "kernel32.dll" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess _
Lib "kernel32.dll" () As Long
Private Sub Command1_Click()
TerminateProcess GetCurrentProcess, 0&
End Sub
Lib "kernel32.dll" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess _
Lib "kernel32.dll" () As Long
Private Sub Command1_Click()
TerminateProcess GetCurrentProcess, 0&
End Sub
2. В меню Project выберите команду Components и в появившемся окне поищите какой-нибудь Grid ()
3.
Код:
Private Sub Test()
Dim iArray(1 To 3) As Single
iArray(1) = 123.456
iArray(2) = 456.123
iArray(3) = 789.456123
MsgBox Sum(iArray), , ""
End Sub
Private Function Sum(iArray() As Single) As Single
Dim iCount As Integer
For iCount = 1 To 3 'LBound(iArray) To UBound(iArray)
Sum = Sum + iArray(iCount)
Next
End Function
Dim iArray(1 To 3) As Single
iArray(1) = 123.456
iArray(2) = 456.123
iArray(3) = 789.456123
MsgBox Sum(iArray), , ""
End Sub
Private Function Sum(iArray() As Single) As Single
Dim iCount As Integer
For iCount = 1 To 3 'LBound(iArray) To UBound(iArray)
Sum = Sum + iArray(iCount)
Next
End Function
[SIZE="5"]pashulka[/SIZE] спасибо огромное!!! Это как-раз то, что я искал :)
1.Делается намного проще.Не надо Unload все формы,и API использовать тоже необязательно.Пишем в обработчике Command1_Click 3 буквы(нет,не те,что вы подумали:))
и задача решена!
3.Можно на всякий случай написать
чтобы точно указать компилятору,чего мы от него хотим
С 2 не поспоришь:)…разве что посоветовать Ctrl+T нажать,дабы не лазать по меню.Но это так,всего лишь совет по акселерации
Код:
Private Sub Command1_Click()
[COLOR="Red"]End[/COLOR] 'Вот они,эти волшебные 3 буквы!
End Sub
[COLOR="Red"]End[/COLOR] 'Вот они,эти волшебные 3 буквы!
End Sub
3.Можно на всякий случай написать
Код:
…
Private Function Sum([COLOR="Red"]ByRef[/COLOR] iArray() As Single) As Single
…
Private Function Sum([COLOR="Red"]ByRef[/COLOR] iArray() As Single) As Single
…
С 2 не поспоришь:)…разве что посоветовать Ctrl+T нажать,дабы не лазать по меню.Но это так,всего лишь совет по акселерации
ByRef используется по умолчанию, поэтому указывать его явно не нужно, тем паче, что массивы всё равно могут передаваться только по ссылке.
Мало ли…Вдруг автор захочет всё-таки их по значению передать?;)
Если бы, при передаче массивов, можно было использовать ByVal iArray(), то ByRef тем более не стал бы нужен.