Динамическое создание формы и управляющих элементов - История изменений

SYSDBA в 14:44, 16 июля 2009

2009-07-16T14:44:23Z

SYSDBA в 14:43, 16 июля 2009

2009-07-16T14:43:49Z

SYSDBA в 14:42, 16 июля 2009

2009-07-16T14:42:43Z

SYSDBA в 14:35, 16 июля 2009

2009-07-16T14:35:13Z

SYSDBA в 14:35, 16 июля 2009

2009-07-16T14:35:00Z

SYSDBA: Создана новая страница размером Option Explicit Function gsIncFileSize_CreateControl(ByRef Dlg, ClassName, CompName, _ Left, Top, Width, Height) ...

2009-07-16T14:34:38Z

Создана новая страница размером <source lang="vb"> Option Explicit Function gsIncFileSize_CreateControl(ByRef Dlg, ClassName, CompName, _ Left, Top, Width, Height) ...

Новая страница

<source lang="vb">
Option Explicit

Function gsIncFileSize_CreateControl(ByRef Dlg, ClassName, CompName, _
Left, Top, Width, Height)

Dim C
Set C = Designer.CreateObject(Dlg, ClassName, CompName)
C.Parent = Dlg
C.Left = Left
C.Top = Top
If Width > 0 Then C.Width = Width
If Height > 0 Then C.Height = Height

Set gsIncFileSize_CreateControl = C

End Function

Sub gsIncFileSize

Const bsDialog = 3
Const poScreenCenter = 4
Const mrOk = 1
Const mrCancel = 2
Const fmOpenReadWrite = 2
Const soFromEnd = 2

Dim DlgWindow, lblFileName, edFileName, lblNewSize, edNewSize, btnOk, btnCancel

Set DlgWindow = Designer.CreateObject(Application, "TForm", "dlgAskFileSize")
DlgWindow.Caption = "Óâåëè÷åíèå ðàçìåðà ôàéëà"
DlgWindow.BorderStyle = bsDialog
DlgWindow.Position = poScreenCenter
DlgWindow.Width = 280
DlgWindow.Height = 132

Set lblFileName = gsIncFileSize_CreateControl(DlgWindow, "TLabel", "lblFileName", _
8, 8, 200, 0)
lblFileName.Caption = "Óêàæèòå èìÿ ôàéëà:"

Set edFileName = gsIncFileSize_CreateControl(DlgWindow, "TEdit", "edFileName", _
8, 24, 260, 0)
edFileName.Text = ""

Set lblNewSize = gsIncFileSize_CreateControl(DlgWindow, "TLabel", "lblNewSize", _
8, 54, 200, 0)
lblNewSize.Caption = "Óêàæèòå íîâûé ðàçìåð â áàéòàõ:"

Set edNewSize = gsIncFileSize_CreateControl(DlgWindow, "TEdit", "edNewSize", _
188, 50, 80, 0)
edNewSize.Text = "0"

Set btnOk = gsIncFileSize_CreateControl(DlgWindow, "TButton", "btnOk", _
108, 78, 76, 21)
btnOk.Caption = "Ok"
btnOk.ModalResult = mrOk
btnOk.Default = True

Set btnCancel = gsIncFileSize_CreateControl(DlgWindow, "TButton", "btnCancel", _
192, 78, 76, 21)
btnCancel.Caption = "Cancel"
btnCancel.ModalResult = mrCancel
btnCancel.Cancel = True

If (DlgWindow.ShowModal = mrOk) And (Trim(edFileName.Text) > "") Then
If Not IsNumeric(Trim(edNewSize.Text)) Then
Application.MessageBox "Ðàçìåð ôàéëà äîëæåí áûòü öåëî÷èñëåííûì çíà÷åíèåì áîëüøèì íóëÿ!", "Îøèáêà", 0
Else
Dim FileName, NewSize, FStream

FileName = Trim(edFileName.Text)
NewSize = CLng(Trim(edNewSize.Text))

On Error Resume Next
Set FStream = Designer.CreateObject(Array(FileName, fmOpenReadWrite), "TFileStream", "")

If Err.Number <> 0 Then
Application.MessageBox "Îøèáêà ïðè îòêðûòèè ôàéëà: " & Err.Description, "Îøèáêà", 0
On Error GoTo 0
Else
FStream.Seek 0, soFromEnd
While FStream.Size < NewSize
FStream.WriteStr Chr(Int((255 - 32 + 1) * Rnd + 32)), 1
WEnd
Designer.DestroyObject(FStream)
End If
End If

If Err.Number <> 0 Then
Application.MessageBox Err.Description, "Îøèáêà", 0
End If
On Error GoTo 0
End If

Designer.DestroyObject(DlgWindow)
End Sub
</source>

@@ Строка 1: / Строка 1: @@
 Формы и управляющие элементы могут создаваться динамически, непосредственно из скрипта. Ниже приведен исходный код процедуры '''gsIncFileSize''' и вспомогательной функции '''gsIncFileSize_CreateControl'''.
-При вызове gsIncFileSize на экране отобразится диалоговое окно для ввода имени файла и нового размера. По нажатию на кнопку Ок, если задано имя существующего файла и его размер меньше указанного числа, то в конец файла будут дописаны случайные данные.
+При вызове '''gsIncFileSize''' на экране отобразится диалоговое окно для ввода имени файла и нового размера. По нажатию на кнопку '''Ок''', если задано имя существующего файла и его размер меньше указанного числа, то в конец файла будут дописаны произвольные данные.
 ==== Исходный код ====

@@ Строка 1: / Строка 1: @@
 Формы и управляющие элементы могут создаваться динамически, непосредственно из скрипта. Ниже приведен исходный код процедуры '''gsIncFileSize''' и вспомогательной функции '''gsIncFileSize_CreateControl'''.
@@ Строка 101: / Строка 100: @@
    Designer.DestroyObject(DlgWindow)
-End Sub</source>
+End Sub
-[[Файл:Example.jpg]]
+</source>

← Предыдущая		Версия 14:42, 16 июля 2009
Строка 1:		Строка 1:
		+
		+	Формы и управляющие элементы могут создаваться динамически, непосредственно из скрипта. Ниже приведен исходный код процедуры '''gsIncFileSize''' и вспомогательной функции '''gsIncFileSize_CreateControl'''.
		+
		+	При вызове gsIncFileSize на экране отобразится диалоговое окно для ввода имени файла и нового размера. По нажатию на кнопку Ок, если задано имя существующего файла и его размер меньше указанного числа, то в конец файла будут дописаны случайные данные.
		+
		+	==== Исходный код ====
		+
	<source lang="vbnet">		<source lang="vbnet">
	Option Explicit		Option Explicit

@@ Строка 1: / Строка 1: @@
-<source lang="vb">
+<source lang="vbnet">
 Option Explicit
@@ Строка 95: / Строка 95: @@
    Designer.DestroyObject(DlgWindow)
 End Sub</source>

@@ Строка 1: / Строка 1: @@
 <source lang="vb">
 Option Explicit
@@ Строка 30: / Строка 29: @@
    Set DlgWindow = Designer.CreateObject(Application, "TForm", "dlgAskFileSize")
-   DlgWindow.Caption     = "Óâåëè÷åíèå ðàçìåðà ôàéëà"
+   DlgWindow.Caption     = "Увеличение размера файла"
    DlgWindow.BorderStyle = bsDialog
    DlgWindow.Position    = poScreenCenter
@@ Строка 38: / Строка 37: @@
    Set lblFileName = gsIncFileSize_CreateControl(DlgWindow, "TLabel", "lblFileName", _
 , 8, 200, 0)
-   lblFileName.Caption = "Óêàæèòå èìÿ ôàéëà:"
+   lblFileName.Caption = "Укажите имя файла:"
    Set edFileName = gsIncFileSize_CreateControl(DlgWindow, "TEdit", "edFileName", _
@@ Строка 46: / Строка 45: @@
    Set lblNewSize = gsIncFileSize_CreateControl(DlgWindow, "TLabel", "lblNewSize", _
 , 54, 200, 0)
-   lblNewSize.Caption = "Óêàæèòå íîâûé ðàçìåð â áàéòàõ:"
+   lblNewSize.Caption = "Укажите новый размер в байтах:"
    Set edNewSize = gsIncFileSize_CreateControl(DlgWindow, "TEdit", "edNewSize", _
@@ Строка 66: / Строка 65: @@
    If (DlgWindow.ShowModal = mrOk) And (Trim(edFileName.Text) > "") Then
      If Not IsNumeric(Trim(edNewSize.Text)) Then
-       Application.MessageBox "Ðàçìåð ôàéëà äîëæåí áûòü öåëî÷èñëåííûì çíà÷åíèåì áîëüøèì íóëÿ!", "Îøèáêà", 0
+       Application.MessageBox "Размер файла должен быть целочисленным значением большим нуля!", "Ошибка", 0
      Else
        Dim FileName, NewSize, FStream
@@ Строка 77: / Строка 76: @@
        If Err.Number <> 0 Then
-         Application.MessageBox "Îøèáêà ïðè îòêðûòèè ôàéëà: " & Err.Description, "Îøèáêà", 0
+         Application.MessageBox "Ошибка при открытии файла: " & Err.Description, "Ошибка", 0
          On Error GoTo 0
        Else
@@ Строка 89: / Строка 88: @@
      If Err.Number <> 0 Then
-       Application.MessageBox Err.Description, "Îøèáêà", 0
+       Application.MessageBox Err.Description, "Ошибка", 0
      End If
      On Error GoTo 0
@@ Строка 95: / Строка 94: @@
    Designer.DestroyObject(DlgWindow)
-End Sub
+End Sub</source>
 </source>