Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
27.10.2003, 07:48
|
|||
|---|---|---|---|
|
|||
Директории в переменной |
|||
|
#18+
ЛЮДИ!!! Какой тип должен быть у переменной, содержащей адрес (директорию)? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.10.2003, 08:49
|
|||
|---|---|---|---|
Директории в переменной |
|||
|
#18+
смотря для чего/как ты его будешь потом использовать... Ну, в болшенстве случаев достаточно просто: string ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.10.2003, 10:22
|
|||
|---|---|---|---|
|
|||
Директории в переменной |
|||
|
#18+
k = LoadPicture("C:\work\LAB_10_Z10\pictures\aus.jpg") - та самая переменная ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.10.2003, 10:43
|
|||
|---|---|---|---|
Директории в переменной |
|||
|
#18+
Не думаю, что в простую переменную можно закачать рисунок. Какая цель то у тя? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.10.2003, 11:25
|
|||
|---|---|---|---|
|
|||
Директории в переменной |
|||
|
#18+
По открытию книги открыть форму. В comboBox – список графических файлов. По нажатию на кнопку – рисунок на форму.По нажатию на другую кнопку - рисунок на лист. ------------------------------------------------------------------------------- Это - задача. Я бы конечно мог для формы и для рабочего листа excel по отдельности писать: Select Case ComboBox1.ListIndex Case 0 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\aus.jpg")) Case 1 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\ger.jpg") Case 2 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\ita.jpg") Case 3 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\jap.jpg") Case 4 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\Rus.jpg") Case 5 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\UK.jpg") Case 6 Image1.Picture = LoadPicture("C:\work\LAB_10_Z10\pictures\US.jpg") End Select но хочется, чтобы для этого существовала отдельная процедура. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.10.2003, 12:11
|
|||
|---|---|---|---|
Директории в переменной |
|||
|
#18+
Если я тебя правильно понял, то что-то в ентом роде можно: Public Function iLoadPicture(ByVal pic As PictureBox, _ ByVal PathPic As String) As String On Error GoTo errLabel pic.Picture = LoadPicture(PathPic) iLoadPicture = "" Exit Function errLabel: iLoadPicture = Err.Description End Function Вызов функции: Private Sub Command1_Click() Dim p As String p = iLoadPicture(Picture1, "c:\2.jpg") If Not p = "" Then MsgBox "Ошибка при загрузки данных!" & vbCrLf & p, vbCritical End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/moderation_log.php?user_name=Egik_Vera]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
get settings: |
11ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
43ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 731ms |
| total: | 895ms |
| 0 / 0 |
