|
|
|
Директории в переменной
|
|||
|---|---|---|---|
|
#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/topic.php?fid=60&msg=32305611&tid=2170540]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
58ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 327ms |
| total: | 460ms |
| 0 / 0 |
