| Вопрос: запуск прог | Добавлено: 22.06.05 20:30 |
Автор вопроса:  bas | Web-сайт: www.klyaksa.net
|
|
Народ как сделать так, чтоб Label была похоже на гиперссылку, и при щелчке по ней открывался нужный сайт. Желательно чтоб caption был, например, = "мой сайт", а при щелчке грузился "http://мой.сайт.где-то.ру".
2. И еще как запустить какой-то файл, например мойдок.док, щелчок по кнопке запускается ворд и в нем файл мойдок.док. |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 22.06.05 21:41 |
|
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label1_Click() ShellExecute 0, "open", "http://site.com", 0, 0, 0 End Sub ShellExecute 0, "open", "C:\File.doc", 0, 0, 0 Label была похоже на гиперссылку
Шрифт синий, подчёркнутый, хочешь эфектов, используюй Label1_MosueMove |
||
|
Номер ответа: 2 Автор ответа: ArtBase ICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #2 | Добавлено: 22.06.05 21:44 |
|
хых, сори за флуд
2 Hacker, ПОЗОРИЩЕ! Label1_MosueMove 
|
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 22.06.05 21:50 |
|
тю, тепичная опечатка... давай, пофлуди ещё... я и "эфектов" с одной "ф" написал... Во работы тебе сколько! Спроси у Павла может он тебе досутп на редактирование топиков даст, будеш нам орфографию исправлять.
|
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 22.06.05 21:52 |
|
"досутп" ... гы... чё это я буквы местами путаю )
|
||
|
Номер ответа: 5 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #5 | Добавлено: 22.06.05 21:55 |
|
2 ArtBase:
А чё не нравится то? или ты про то что в коде надыписано немного, то есть: Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub ???? хотя это и не окно, а событие есть... |
||
|
Номер ответа: 6 Автор ответа: basВопросов: 16 Ответов: 30 |
Web-сайт: Профиль | | #6 | Добавлено: 23.06.05 00:43 |
|
А что это за , 0, 0, 0 (просто, интересно), т.е. что это за параметры?
|
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 23.06.05 02:05 |
|
дык если интересно, почему бы не скачать мануал по API?
ShellExecute VB Declaration Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _ hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) Description Finds the file name of the program that is associated with a specified file and either runs the program for the file or prints the file. The Windows registration editor can be used to associate types of files with particular applications. For example, text files that have the extension .TXT are typically associated with the Windows Notepad (NOTEPAD.EXE). Specifying any file with the .TXT extension to this function will either launch the Notepad program using the file name as a parameter, or will print the specified file. Use with VB No problem. Parameter Type/Description hwnd Long—A handle to a window. Sometimes it is necessary for a Windows application to show a message box before it has created its own main window. If this occurs, the window specified by this parameter will be used as the parent window of the message box. Under Visual Basic you would usually use the window handle of the active form for this parameter. lpOperation String—The string “Open” to open the lpFile document or “Print” to print it. This may be vbNullString to default to “Open.” lpFile String—A program name or the name of a file to print or open using the associated program. lpParameters String—A string containing parameters to pass to the executable file if lpszFile is an executable file. vbNullString if lpszFile refers to a document file or if no parameters are used. lpDirectory String—The full path of the default directory to use. nShowCmd Long—A constant value specifying how to show the launched program. This matches the nCmdShow parameter to the ShowWindow API function described in Chapter 5. Return Value Long—Greater than 32 on success. Refer to the description of the FindExecutable function for a list of error codes. Platform Windows 95, Windows NT, Win16 Проще говоря - дополнительные параметры для открытия программы (развернуть, свернуть, скрытая...) Путь к папке прогаммы, операция программы итп... |
||
|
Номер ответа: 8 Автор ответа: basВопросов: 16 Ответов: 30 |
Web-сайт: Профиль | | #8 | Добавлено: 23.06.05 17:40 |
| А как сделать указатель мыши в виде руки? В моуспоинтер, вроде, такого указателя нет. Загружать свой нежелательно. | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 23.06.05 18:02 |
| А чего "свой" нежелательно? Никто не предлагает его в ресурсах с собой таскать, он же в винде есть... | ||
|
Номер ответа: 10 Автор ответа: basВопросов: 16 Ответов: 30 |
Web-сайт: Профиль | | #10 | Добавлено: 23.06.05 18:24 |
| Хочется, чтобы в зависимости от темы у пользователя показывалась соответсвующая рука. Т.е. стандартная тема xp-синяя (например) рука, серебрянная-еще какая-то. А не чтоб одна та которую я укажу в маусеикон. | ||
|
Номер ответа: 11 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #11 | Добавлено: 23.06.05 19:10 |
OpenTheme и вперед 
|
||
|
Номер ответа: 12 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #12 | Добавлено: 26.06.05 20:34 |
|
хехе
Private Sub Label2_Click() Call Shell("Start.exe " & "http://atec.com.ru", 0) End Sub |
||
|
Номер ответа: 13 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #13 | Добавлено: 26.06.05 20:35 |
|
Private Sub Label2_Click()
a = shell("c:\my.doc"
End Sub кажися должен запустить прогу ворда и в нем файло |
||
|
Номер ответа: 14 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #14 | Добавлено: 27.06.05 23:25 |
|
2 TERMIT хехехе...
Первый твой вариант это передача программе через коммандную строку. Второй - работать вообще ну будет То что ты хотел, через ShellExecute делается.
|
||
Страница: 1 |