|
|
|
Директории в переменной
|
|||
|---|---|---|---|
|
#18+
ЛЮДИ!!! Какой тип должен быть у переменной, содержащей адрес (директорию)? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2003, 07:48 |
|
||
|
Директории в переменной
|
|||
|---|---|---|---|
|
#18+
смотря для чего/как ты его будешь потом использовать... Ну, в болшенстве случаев достаточно просто: string ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2003, 08:49 |
|
||
|
Директории в переменной
|
|||
|---|---|---|---|
|
#18+
k = LoadPicture("C:\work\LAB_10_Z10\pictures\aus.jpg") - та самая переменная ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2003, 10:22 |
|
||
|
Директории в переменной
|
|||
|---|---|---|---|
|
#18+
Не думаю, что в простую переменную можно закачать рисунок. Какая цель то у тя? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2003, 10:43 |
|
||
|
Директории в переменной
|
|||
|---|---|---|---|
|
#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, 11:25 |
|
||
|
Директории в переменной
|
|||
|---|---|---|---|
|
#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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2003, 12:11 |
|
||
|
|
start [/forum/search_topic.php?author=%D0%90%D0%BD%D0%B0%D1%81%D1%82%D0%B0%D1%81%D0%B8%D1%8F123&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
get settings: |
9ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
3ms |
track hit: |
65ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 891ms |
| total: | 1051ms |
| 0 / 0 |
