Модератор: Дед Пахом
А что не так? Посмотрел на планшете с Win8 - похож на виндоусовый проводник как две капли воды.Игорь Столяров писал(а):И все-таки, меня стандартный FileDialog() Clarion'а выбешивает ...
Особенно при работе приложения под Win 7/8 - выбор файла выглядит ископаемым рудиментом ...
А при работе с планшета - вообще нужно сначала пальцы точилкой для карандашей обработать.
Да, конечно ... иначе вообще тихий ужас.Yufil писал(а):А флажок File:LongName поставили? C ним диалог не столь ужасен
Безусловно. Но так низко опускаться наверно тоже не надо ...Дед Пахом писал(а):можно свой, оригинальный, FileDialog наваять.
Код: Выделить всё
Option Explicit
Dim strFile
strFile = SelectFile( )
If strFile = "" Then
WScript.Echo "No file selected."
Else
WScript.Echo """" & strFile & """"
End If
Function SelectFile( )
' File Browser via HTA
' Author: Rudi Degrande, modifications by Denis St-Pierre and Rob van der Woude
' Features: Works in Windows Vista and up (Should also work in XP).
' Fairly fast.
' All native code/controls (No 3rd party DLL/ XP DLL).
' Caveats: Cannot define default starting folder.
' Uses last folder used with MSHTA.EXE stored in Binary in [HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32].
' Dialog title says "Choose file to upload".
' Source: http://social.technet.microsoft.com/Forums/scriptcenter/en-US/a3b358e8-15&ælig;-4ba3-bca5-ec349df65ef6
Dim objExec, strMSHTA, wshShell
SelectFile = ""
' For use in HTAs as well as "plain" VBScript:
strMSHTA = "mshta.exe ""about:" & "<" & "input type=file id=FILE>" _
& "<" & "script>FILE.click();new ActiveXObject('Scripting.FileSystemObject')" _
& ".GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "<" & "/script>"""
' For use in "plain" VBScript only:
' strMSHTA = "mshta.exe ""about:<input type=file id=FILE>" _
' & "<script>FILE.click();new ActiveXObject('Scripting.FileSystemObject')" _
' & ".GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>"""
Set wshShell = CreateObject( "WScript.Shell" )
Set objExec = wshShell.Exec( strMSHTA )
SelectFile = objExec.StdOut.ReadLine( )
Set objExec = Nothing
Set wshShell = Nothing
End FunctionСравнил MS Winword 2007 с filedialog в программе, собранной на C9.0 (Win7, 64 бит). Отличие только в a) в Winword'е есть кнопка "Сервис", б) в Winword'е на кнопке "Открыть" больше меню. Может, не туда смотрю?Игорь Столяров писал(а):Ну сравни например, с выбором файлов в MS Office ...
Понравилось VS или нет? В каком-то посте Rob Z. написал, что они (SV) не могут успеть за метаниями и шараханиями MS. Поэтому, надо использовать открытые продукты (к теме о H5). А у MS бабла много, что на них равняться.Игорь Столяров писал(а):О боже ! Теперь понятно с чего SV безуспешно лепит столько лет т.н. "новый" интерфейс Clarion 9 / 9.1 ...
.