Вопрос № 124652: Здравствуйте!
У меня два маленьких вопросика:
1) Программа написана мной на языке Visual Basic:
Option Explicit
Private Sub cmdCalculate_Click()
Dim paramA As Double
Dim x1 As Double
Dim x2 As Double<br...Вопрос № 124690: Здравствуйте уважаемы эксперты! У меня такой вопрос:
как при работе с коллекцией, вызвать элемент из нее используя ключ этого элемента.
Заранее спасибо....
Вопрос № 124.652
Здравствуйте!
У меня два маленьких вопросика:
1) Программа написана мной на языке Visual Basic:
Option Explicit
Private Sub cmdCalculate_Click()
Dim paramA As Double
Dim x1 As Double
Dim x2 As Double
Dim D As Double
paramA = Val(txtParamA.Text)
If paramA = 0 Then
MsgBox "Нуль в качестве значения скорости не принимается!", _
vbCritical
Exit Sub
End If
If paramA < 0 Then
MsgBox "Число ниже нуля как значение скорости не принимается!", _
vbCritical
Exit Sub
End If
D = paramA * 1000
x1 = (D / 8) / 1024
x2 = (D / 8) / 1024 / 1024
lblX1.Caption = "Кб/с: " & x1
lblX2.Caption = "Мб/с: " & x2
End Sub
Вопрос: как мне сделать так, чтобы значения
lblX1.Caption = "Кб/с: " & x1 и lblX2.Caption = "Мб/с: " & x2 округлялись до сотых ?
2) Когда у меня выполняется условие, что число, которое я ввёл (ParamA) ниже нуля, то выводится сообщение в отдельном окне, в заголовке которого записано "первый проект" - это я как-то его так назвал, а я хочу сделать так, чтобы там было написано что-нибудь другое. Вопрос: как мне это сделать ?
А, вообще, можно ли присвоить каждому отдельно выводящемуся окну свой заголовок (как-нибудь его задать) ?
Огромное спасибо за помощь!
Отвечает: PsySex
Здравствуйте, Красильников И.П.!
2. Измененный код в приложении.
3. Если говорить о MessageBox, то чтобы указать его заголовок достаточно указать еще параметр Title - смотрите код в приложении тоже.
Если речь идет о форме, то у формы есть свойство Caption - т.е. заголовок окна.
Form1.Caption = "My Form"
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 24.02.2008, 20:23 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! У меня ещё маленький вопросик, если позволите: Как мне сделать так, чтобы когда я запускаю программу, то вместо того, чтобы нажимать мышкой по кнопке, я нажал Enter и программа начала работу ? Просто, если я введу значение и нажму Enter, то она не среагирует. Это я хочу сделать для удобства.
Отвечает: MMAX
Здравствуйте, Красильников И.П.!
1) Вопрос попробуй использовать функцию Format, вот пример необходимый тебе
Format(x1, "0.##")
2) Если необходимо вывести в MsgBox другой заголовок, то воспользуйся параметром title, общий пример ниже
Ответ отправил: MMAX (статус: 2-ой класс)
Ответ отправлен: 25.02.2008, 11:42 Оценка за ответ: 4 Комментарий оценки: Спасибо, помогло!
Вопрос № 124.690
Здравствуйте уважаемы эксперты! У меня такой вопрос:
как при работе с коллекцией, вызвать элемент из нее используя ключ этого элемента.
Заранее спасибо.
Отправлен: 25.02.2008, 00:56
Вопрос задал: Faraviper (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: MMAX
Здравствуйте, Faraviper!
Вопервых при заполнении коллекции необходимо указывать ключ элемента
dim mCol As New Collection
dim sKey as string ' - ключь элемента
dim objItem as long
objItem = 1010
sKey = "FirstItem"
mCol.Add objItem, sKey
'Доступ по ключу
objItem = mCol(sKey)
objItem = mCol("FirstItem")
'Доступ по индексу
objItem = mCol(1)
Set mCol = Nothing
'как вариант с обектом
Public Property Get Item(vntIndexKey As Variant) As Object
Set Item = mCol(vntIndexKey)
End Property
Ответ отправил: MMAX (статус: 2-ой класс)
Ответ отправлен: 25.02.2008, 11:29 Оценка за ответ: 5 Комментарий оценки: Большое спасибо!
