| |
|
|
| |
Dim STR_PATH
STR_PATH = Shell("C:\1_Текущее\proba.rtf", 3)
|
ругается и не открывается
И ещё как применять коды форматирования строк?
"\cf1" | |
| |
| |
| |
|
|
| | Положи файл wordpad.exe
в известное тебе место и будет тебе щастие
Dim STR_PATH
STR_PATH = Shell(GLB_PATCH_COMPONENTS & "wordpad.exe C:\1_Текущее\proba.rtf", 3)
 | |
| |
| |
| |
|
|
| | Вызов любого файла ассоциированной прогой
Public 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
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Function StartOfFile(strNameFile As String)
Dim intResult As Integer
intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
If intResult = 31 Then
MsgBox "Незарегестрированный тип файла"
End If
End Function
Вызывается так
StartOfFile("C:\1_Текущее\proba.rtf")
|
| |
| |
| |
| |
|
|
| | Спасибо мил человек
А как применять коды форматирования строк?  | |
| |
| |
| |
|
|
| | Это где?
Типа
VbCr
VbCrlf
chr(13)+chr(10)
Или что?
Или типа вправо, по центру, влево, по ширине? | |
| |
| |
| |
|
|
| | Нууууууу - это когда в ричтекстбох выводишь строки - их можно отформатировать - шрифт, цвет .....
Но перед этим эти строки надо как то выделить сначала, вощем пока нипанятно! | |
| |
| |
| |
|
|
| | Вот так бросить на рабочий стол и открыть
Dim STR_PATH
STR_PATH = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\PRICE.rtf"
RichTextBox1.SaveFile STR_PATH, rtfRTF
STR_PATH = Shell(GLB_PATCH_COMPONENTS & "wordpad.exe " & STR_PATH, 3)
|
Только вот рабочий стол может зваться по разному.... | |
| |
| |
| |
|
|
| | Вывод на печать с контролем над процессом
http://www.vbcoding.org.ua/codelib/vb6code/23-Ispolzovanie_ActiveX/19-Pechat-soderzhimogo-RichTetBo-865.html
|
| |
| |
| |
| |
|
|
| | А так открывать не проще?:
Application.FollowHiperlink "C:\1_Текущее\proba.rtf" | |
| |
| |
| |
|
|
| | на Application ругается
я в VB6 нахожусь | |
| |
| |
| |
|
|
| | Попробуй вот так!
И улыбнись 
Function StartOfFile(strNameFile As String)
' для открытия любого файла его программой из VB6
' Вызывается так''StartOfFile ("C:\1_Текущее\proba.rtf")
Dim intResult As Integer
intResult = ShellExecute(0, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
If intResult = 31 Then
MsgBox "Незарегестрированный тип файла"
End If
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо ДЯДЯ_Фёдор | |
| |
| |
|
|
