display pdf byte array in browser c# : Rotate all pages in pdf and save control Library system azure asp.net windows console 1200%20macro_examples21-part138

211
Unload UserForm1
UserForm1.Show
'additional user code
End Sub
On the userform is a button which has the following code in the userform's code module:
Private Sub CommandButton1_Click()
'this hides the userform
Me.Hide
End Sub
If you do not want to reset the userform, then do not use the statement "Unload UserForm1",
assuming your form is named UserForm1.
13.1.8 Having UserForms Retain Settings Between Macro
Runs
One of the problems with userforms is that once a userform is loaded, if the subroutine that loads
it terminates, the form automatically unloads.  A very undesirable behavior.  However, it is
possible to have a userform retain any user changes between subroutines, and even between
macro runs.
To demonstrate this, create a userform with an edit box and a button.  Assign the following code
to the button, assuming it is named CommandButton1.
Private Sub CommandButton1_Click()
'this hides the userform
Me.Hide
End Sub
In a regular module, put the following code:
'declare a public variable at the top of the module
Public oFrm As UserForm1
Sub MainRoutine()
'set variable to the userform
Set oFrm = New UserForm1
Rotate all pages in pdf and save - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
pdf reverse page order online; rotate one page in pdf
Rotate all pages in pdf and save - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to rotate pdf pages and save; rotate individual pdf pages reader
212
'run subroutines which display the form
ShowForm1
ShowForm2
End Sub
Sub ShowForm1()
'show the form; its hidden by a button's code
oFrm.Show
MsgBox "Finished with first showing"
End Sub
Sub ShowForm2()
oFrm.Show
'show the form; its hidden by a button's code
'this clears the Public variable, which unloads the userform
Set oFrm = Nothing
MsgBox "Finished with second showing"
End Sub
If you do not use the statement
Set oFrm = Nothing
Then the userform will continue to stay initialized for subsequent macro runs.  You can
demonstrate this by commenting out this statement in ShowForm2.  Then run MainRoutine.
Next, run ShowForm2 by itself.  Notice that any changes to the edit box is retained.
You should see that any controls you place on the form will keep their values between showings
until the global variable is reset, or the userform displayed by using a statement like
UserForm1.Show.
13.1.9 Positioning a Form where it was Last Displayed
The following code will position a userform (in this case userform1) at its last displayed
position when it is redisplayed:
'declare public variables at the top of the module
Public formTop As Single
Public formLeft As Single
Sub PositionAndShowForm()
With UserForm1
'check to see if a location is stored
If formTop > 0 Or formLeft > 0 Then
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
NET example for how to delete several defined pages from a PDF document Dim detelePageindexes = New Integer() {1, 3, 5, 7, 9} ' Delete pages. All Rights Reserved
rotate all pages in pdf file; rotate single page in pdf reader
C# PDF Page Insert Library: insert pages into PDF file in C#.net
as how to merge PDF document files by C# code, how to rotate PDF document page This C# demo explains how to insert empty pages to a specific All Rights Reserved
how to rotate all pages in pdf; how to permanently rotate pdf pages
213
'StartUpPosition position must be set
'to zero before setting top and left
.StartUpPosition = 0
'for top and left to be applied
'startup position must be set to zero
.Top = formTop
.Left = formLeft
End If
.Show
'save settings in case the user clicked a button
'that hides the form.  Hiding does not trigger the
'query close event to run
SaveDialogSettings
End With
Unload UserForm1
End Sub
Sub SaveDialogSettings()
'only save settings if values > 0
'as clicking the "X" to close a dialog sets the
position to
'zero after the dialog closes
'howver, as the procedure runs before it is truely
closed
'the top and left postions are > zero and can be stored
With UserForm1
If .Top > 0 Or .Left > 0 Then
'save the form location
formTop = .Top
formLeft = .Left
End If
End With
End Sub
Place a statement calling the SaveDialogSetting procedure in the userform's query close
event.  To do this, right click on the userform in project explorer and select code.  Then in
the left dropdown  at the top select userform.  This will initially insert the code for the
userform click event.  Click into this code.  Now, in the right dropdown select Query.
Code for the QueryClose event will appear (we have added the statement to call the
SaveDialogSetting procedure.
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
'this even is triggered when the "X" is clicked and
'when the Unload command run
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
1. public void DeletePages(int[] pageIndexes). Description: Delete specified pages from the input PDF file. Parameters: All Rights Reserved.
how to rotate all pages in pdf at once; rotate single page in pdf file
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
doc2.InsertPages(pages, pageIndex) ' Output the new document how to use VB to insert an empty page to a specific location of current PDF file All Rights Reserved
rotate all pages in pdf and save; pdf page order reverse
214
SaveDialogSettings
End Sub
13.1.10 Setting The Tab Order In An UserForm
The tab order of a userform is the order in which one moves from object to object when the
userform is displayed.  To change the tab order:
Make sure no controls are selected.
Right
-
click in the form or dialog, but not on a control.
From the shortcut menu, choose Tab Order.
Select the name of a control you want to reposition in the tab order.
Choose Move Up or Move Down until the control name is in the appropriate position
in the tab order.
13.1.11 Shortcut Variable Name For A UserForm
In a userform's code module, you can use the variable "Me" to refer the userform.  This avoids
having to type out the userform's full name to identify the form in your code.  Typically, one
would put code in the userform'sActivate event to initialize edit boxes on the form.
Private Sub UserForm_Activate()
Me.TextBox1.Text = ""
End Sub
Please note that theActivate event for a userform is run only when the form is loaded into
memory.  If you hide and then subsequently show the userform again, theActivate event is not
run the second time.  If however you unloaded the userform and then showed it again, the
Activate event will run a second time.
13.1.12 Passing Information And Variables To UserForm
Procedures
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Description: Copy specified page from the input PDF file pageIndexes, The page indexes of pages that will be copied, 0
reverse page order pdf; pdf rotate all pages
C# Create PDF from Excel Library to convert xlsx, xls to PDF in C#
Merge all Excel sheets to one PDF file. Export PDF from Excel with cell border or no border. Description: Convert to PDF/TIFF and save it on the disk.
pdf rotate page; pdf expert rotate page
215
To demonstrate this technique, make a call to a subroutine in the UserForm's code module,
passing the variable or value to that sub. Then, in the called subroutine, tell the form to show
itself.
Here's an example, assuming that the userform is named UserForm1
In your module:
Sub TheCallingSub()
UserForm1.RoutineInUserFormCodeModule("Hello!")
End Sub
In the UserForm, which has a label on it:
Sub UserFormSubRoutine(sPassedIn As String)
Me.Label1.Caption = sPassedIn
Me.Show
End Sub
In the above example, the variableMe is a built in variable that can be used to reference the class
where the code is being executed.  In this case the class is a user form.  If the variableMe were in
a worksheet's code module, thenMe would refer to the worksheet.
13.1.13 Putting Data On A Sheet From A Userform
To put data onto a sheet from a userform, use a statement like the following:
WorkSheets("Data").Range("D6").Value = UserForm1.TextBox1.Value
Do not unload the userform until after you have stored the values you need from the form in
variables or on a worksheet.
13.1.14 Getting Values From A UserForm
One way to get a value from a userform, such as the contents of an edit box, is to place code in
the userform's UserForm_QueryClose procedure.  The code in this procedure would in turn set
the values of global variables and then unload or hide the procedure.
PrivateSub UserForm_QueryClose(CancelAs Integer, CloseModeAs Integer)
gUserEntry = UserForm1.Editbox1.Text
End Sub
Please note that the global variables must be declaredPublic in a regular module, and not in the
userform module.  If declared in the userform module, they will not retain their values when the
form is unloaded or hidden.
C# PDF File Merge Library: Merge, append PDF files in C#.net, ASP.
NET source code for combining multiple PDF pages together in Remarkably, all those C#.NET PDF document page processing source PDF streams into one PDF file and
rotate all pages in pdf; rotate pdf pages and save
C# PDF Convert to Images SDK: Convert PDF to png, gif images in C#
Description: Convert all the PDF pages to target format images and save them into streams. Parameters: Name, Description, Valid Value.
pdf rotate just one page; how to rotate one page in a pdf file
216
13.1.15 Displaying A Dialog To Get A Password
Just set the textbox propertyPasswordChar to "*".  Do this by selecting the textbox in the Visual
Basic editor, display the properties windows, and enter an asterisk ( * ) in the PasswordChar
property field
13.1.16 Removing The Quit/X Button On An UserForm
To remove the Quit/X button in the upper right corner of a userform can be done, but it requires
some Windows API magic developed by Stephen Bullen.
'at the top of a module put the following function.
'each function must be on a single line
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
'place these two constant statements at the top of the module
Const GWL_STYLE = (
-
16)
Const WS_SYSMENU = &H80000
'place this in the userform's code module
Private Sub UserForm_Initialize()
Dim hWnd As Long, a As Long
hWnd = FindWindow("ThunderXFrame", Me.Caption)
a = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, a And Not WS_SYSMENU
End Sub
'be sure to put a button on the form so that you can exit the form.  For example
Private Sub CommandButton1_Click()
Me.Hide
End Sub
If you forget to the above button on the form and you have the Visual Basic Editor active, you
can close the form by pressing ALT
-
Tab to get to the VB editor and then clicking on the reset
button.
13.1.17 Hiding The Exit X On A Userform
217
To hide the little X that appears at the top right of a userform, you can use the following code
that you would put in the userform's module:
'this goes at the top of the module:
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As StringAs Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As LongAs Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As LongByVal dwNewLong As LongAs Long
Const GWL_STYLE = (
-
16)
Const WS_SYSMENU = &H80000
Private Sub UserForm_Initialize()
'this hides the X on the caption line
Dim hWnd As Long, a As Long
Dim V As Integer
V = CInt(Left(Application.Version, _
InStr(Application.Version, ".")))
'If V = 8 this is Excel 97
If V = 8 Then
hWnd = FindWindow("ThunderXFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderDFrame", Me.Caption)
End If
a = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, a And Not WS_SYSMENU
End Sub
13.1.18 Disabling the Exit X on a Userform
To prevent a user from closing an userform by clicking on the small "x" at the top right of a
userform, put the following code in the user form's code module:
PrivateSub UserForm_QueryClose(CancelAs Integer, CloseMode As Integer)
Cancel =True
End Sub
Please note this prevents you from ever unloading the userform from memory.  AnUnload
statement will be ignored if Cancel is set toTrue  This is OK if your procedure is not large and
you are not displaying too many userforms, as the userform is automatically unloaded when all
your procedures are done.  However, if you are displaying many userforms or are expecting the
218
user form to be unload (and thus reset) when you issue theUnload statement you must use the
following code instead:
PrivateSub UserForm_QueryClose(CancelAs Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenuThen Cancel = True
End Sub
An even simpler approach is the following, which uses the numeric value of
vbFormControlMenu instead of its name,  Its value obviously is much easier to remember.
PrivateSub UserForm_QueryClose(CancelAs Integer, CloseMode As Integer)
If CloseMode = 0Then Cancel = True
End Sub
Or, you can use the following approach, which is also simple:
PrivateSub UserForm_QueryClose(CancelAs Integer, CloseMode As Integer)
IfNot CloseModeThen Cancel = True
End Sub
Lastly, if you want to run a routine to tell the user not to click on the X, then do this:
PrivateSub UserForm_QueryClose(CancelAs Integer,CloseMode As Integer)
If CloseMode =vbFormControlMenuThen
Cancel =True
MsgBox "Click on a button to close!"
EndIf
End Sub
13.1.19 Displaying A UserForm Without A Blue Title Bar
If you remove a userform's blue title bar, then the user will not be able to move the userform nor
click on the Quit/X button and close the form.  Such a user form could be displayed as a task
selection bar, as a modeless userform, or just as a normal userform but without the title bar.
Since it is displayed without a title bar, there is no need to turnApplication.ScreenUpdating
back on in case the users moves the userform around.
219
The first step is to create a class module.  Name the class module "cTitleBarHider" and put the
following code in it:
Private Declare Function FindWindow Lib "USER32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As StringAs Long
Private Declare Function GetWindowLong Lib "USER32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As LongAs Long
Private Declare Function SetWindowLong Lib "USER32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As LongByVal dwNewLong As LongAs Long
Private Declare Function DrawMenuBar Lib "USER32" _
(ByVal hWnd As LongAs Long
Private Const GWL_STYLE As Long = (
-
16)
'The offset of a window's style
Private Const WS_CAPTION As Long = &HC00000
'Style to add a title bar
Public Property Set Form(oForm As Object)
Dim iStyle As Long
Dim hWndForm As Long
If Val(Application.Version) < 9 Then
'XL97
hWndForm = FindWindow("ThunderXFrame", oForm.Caption)
Else
'XL2000
hWndForm = FindWindow("ThunderDFrame", oForm.Caption)
End If
iStyle = GetWindowLong(hWndForm, GWL_STYLE)
iStyle = iStyle And Not WS_CAPTION
SetWindowLong hWndForm, GWL_STYLE, iStyle
DrawMenuBar hWndForm
End Property
Then, in the code module of any userform you wish to be titleless, put the following code:
Dim oTitleBarHider As New cTitleBarHider
Private Sub UserForm_Activate()
Set oTitleBarHider.Form = Me
End Sub
220
Lastly, change the userform's border style property to 1
-
fmBorderStyleSingle in the userform's
property box.  This will improve the appearance of the userform when it is displayed.
When the form is displayed, the UserForm_Activate procedure will run and in turn run the code
in the class module which hides the title bar.
13.1.20 Showing And Getting Values From A UserForm
It is easy to show a user form.  Just use a statement like this in your code:
user form name.Show
for example: UserForm1.Show
However, closing the form is a bit more difficult.  To close a form, you should put one of the
following statements in the click event code of a button on the user form:
user form name.Hide
or
UnLoad user form name
There is a major difference between using theHide method and theUnLoad method.  If you use
theHide method on the user form, you can query the objects on the user form for their values.  If
you useUnLoad, then the user form is removed from memory and any settings or values entered
by the user are lost.  You should always unload the user form from memory using theUnload
method once you have obtained the information you need from it.  Failure to do so and then
displaying other user forms will result in a severe memory drain on Excel and your code crashing.
The click event code of a button is displayed when you double click on a button.  Doing so will
take you to the user form's code sheet, and display lines like the following:
Private SubCommandButton1_Click()
End Sub
If your user form is named UserForm1, the you would modify the code to look like the following:
Private SubCommandButton1_Click()
UserForm1.Hide
End Sub
or
Private SubCommandButton1_Click()
Documents you may be interested
Documents you may be interested