display pdf from byte array c# : Rotate pages in pdf online software control dll windows web page html web forms 1200%20macro_examples24-part141

241
To have the text in a textbox elected when the userform is selected, use code like the following:
With UserForm1.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
The textbox should be at the top of the tab order.
If the text box has the focus, then the above will select the text that is in the box.  For example
Sub SelectTextInTextBox()
UserForm1.TextBox1.Text = "Some Text"
UserForm1.Show
End Sub
You could also assign the code to a button's code so that when the button is clicked, the focus is
transferred to the text box and the text in the text box selected.  One additional line is needed, a
set focus line:
Private Sub CommandButton1_Click()
With UserForm1.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End Sub
13.5.4 How To Clear and Set TextBox Entries
You must refer to each textbox individually to clear or set their entries.  For example,
UserForm1.TextBox1.Text =""
If your textboxes are named TextBox1, TextBox2, etc, you can use the following technique
instead:
With UserForm1
For i = 1 To 3
.Controls("textbox" & i).Text = ""
Next
End With
If the Textbox is used to get a range reference, and you want to set it to the current selection on
the sheet then do the following:
UserForm1.RefEdit1.Text = Selection.Address
13.5.5 Cursor Position In A UserForm TextBox
Rotate pages in pdf online - 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; how to reverse pages in pdf
Rotate pages in pdf online - 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 one page in pdf document; pdf expert rotate page
242
You can use theSelStart property to set a textbox in a userform so that the cursor goes to the
beginning and not to the end of text when the userform is activated:
Private Sub UserForm_Activate()
UserForm1.TextBox1.SelStart = 0
End Sub
13.5.6 How To Format A Number On A Label In A UserForm
If you have a label on a user form and you want to change the text to a formatted value, you can
do so using theFormat() function.  The following illustrates the syntax to use if you wanted to
format the number 1000 to appear as $1,000.00 in a label and have the phrase "Amount paid"
prefixing the number:
UserForm1.Label1.Caption  = _
"Amount paid:  "& Format(1000, "$#,##0.00")
If the value to be placed in the user form is first obtained and stored in a variable, then you can
replace the 1000 with the name of the variable.
13.5.7 Multiple TextBoxes with Same Validation
Here is an example of how to trap the Change event for all text boxes on a UserForm so that you
can apply the same validation tests to the entry.  First create a class module and name it
clsControlEvents.  Enter the following code:
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If Len(txt.Text) > 6 Then
MsgBox "Do not enter more than 6 characters", vbCritical
txt.Text = Left(txt.Text, 6)
End If
End Sub
As soon as you have entered the first line, you can use the drop downs at the top of the class
module to generate the event procedure's first and last lines.  Unfortunately, text boxes do not
expose their most useful events in the class module (Enter, Exit, BeforeUpdate, AfterUpdate), but
you can get to the Change event.
In the userform class module, enter the following code:
Dim colTextBoxes As New Collection
Private Sub UserForm_Initialize()
Dim ctl As MSForms.Control
Dim ctlEvents As clsControlEvents
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Then
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
Enable specified pages deleting from PDF in Visual Basic .NET class. Free trial SDK library download for Visual Studio .NET program. Online source codes for
pdf rotate pages separately; how to rotate a pdf page in reader
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
add and insert one or multiple pages to existing adobe PDF document in VB.NET. Ability to create a blank PDF page with related by using following online VB.NET
rotate pages in pdf permanently; pdf rotate just one page
243
Set ctlEvents = New clsControlEvents
Set ctlEvents.Text = ctl
colTextBoxes.Add ctlEvents
End If
Next ctl
End Sub
This code assigns instances of the class module to the text boxes in the UserForm and stores the
instances in a collection,
13.5.8 Formatting Textbox Entries
It is possible to format a numeric entry in a text box.  TheBeforeUpdate event is the best way to
do this, but the format is not applied until the textbox loses focus.
To try this, enter code like the following in the userform's code module (reached by double
clicking the textbox).  Please note that the name of this subroutine is dependent on the name of
your text box.  If you are uncertain, select the text box from the left drop down and the
BeforeUpdate event from the right drop down when you are on the userform's code sheet.  This
will create first and last lines of that event's code.
Private Sub TextBox1_BeforeUpdate( _
Val Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "$#,##0.00")
End Sub
When you try the above code, pressing tab or enter after making an entry formats the text box.
13.5.9 Formatting TextBoxes on UserForm
The textbox only contains a string.  You can format the text in the textbox by using the VBA
format function and putting the following in the UserForm code module.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "$ #,##0.00")
End Sub
13.5.10 Formatting Numbers In A UserForm Textbox
The following statement shows how to format an entry in a userform's textbox to a given number
of decimal places using theFormat function.
UserForm1.TextBox1.Text = Format(30, "0.00")
The above statement will display "30.00" in the textbox
13.5.11 Bulk Clearing Of Text Boxes
If you have many text boxes on a userform, the following is an easy way to clear all of them:
C# PDF Page Insert Library: insert pages into PDF file in C#.net
to merge PDF document files by C# code, how to rotate PDF document page to delete PDF page using C# .NET, how to reorganize PDF document pages and how
rotate a pdf page; rotate single page in pdf file
VB.NET PDF- View PDF Online with VB.NET HTML5 PDF Viewer
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET read barcodes from PDF, C#.NET OCR scan PDF. C# ASP.NET Document Viewer, C# Online Dicom Viewer
how to rotate pdf pages and save; pdf rotate single page reader
244
Sub ClearTextBoxes
()
Dim CurrCtrl As Control
For Each CurrCtrl In UserForm1.Controls
If TypeName(CurrCtrl) = "TextBox" Then
CurrCtrl.Text = ""
End If
Next
End Sub
If you wanted to clear just some of them perhaps you could use theirTab Indexes Something
like ifTaxIndex > X and < Y.
13.5.12 Validating UserForm Textbox Entries
You can assign code to a userform's textbox's exit event to check the entry.  If the entry is not
valid, then you can retain the focus in the text box so that the user can not leave the text box until
a valid entry has been made.  The following illustrates this, which requires the user to type either
A or B in the textbox, and accepts no other entry:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim sEntry As String
'store the textbox entry in a variable for later use
sEntry = UCase(TextBox1.Text)
'check to see if the entry is valid
If Not (sEntry = "A" Or sEntry = "B") Then
'if the entry is not valid, display a message
MsgBox "Your entry was incorrect"
'if the entry is not valid, set the Cancel variable to True so that
'the user can not leave the edit box
Cancel = True
End If
End Sub
If you need to use the same code to validate many textboxes, then you can do so by using code
like the following:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'call the function that validates the text box, and pass the text box
'entry to the function, which will return either True or False
'if False returned, do not allow the user to exit the textbox
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
Free online C# class source code for deleting specified PDF pages in .NET console application. Able to remove a single page from PDF document.
reverse pdf page order online; rotate all pages in pdf preview
VB.NET PDF - WPF PDF Viewer for VB.NET Program
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET read barcodes from PDF, C#.NET OCR scan PDF. C# ASP.NET Document Viewer, C# Online Dicom Viewer
saving rotated pdf pages; rotate pdf page
245
If Not ValidateEntry(TextBox1.Text) Then Cancel = True
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'call the function that validates the text box, and pass the text box
'entry to the function, which will return either True or False
'if False returned, do not allow the user to exit the textbox
If Not ValidateEntry(TextBox2.Text) Then Cancel = True
End Sub
Function ValidateEntry(ByVal anyString As String) As Boolean
'this function returns True if the entry is an A or B, False otherwise
'the text box entry is passed ByVal to keep the following code from
'changing the supplying variable's value to upper case
'convert the string to upper case
anyString = UCase(anyString)
'see if the entry is OK
If Not (anyString = "A" Or anyString = "B") Then
'if the entry is not valid, display a message
MsgBox "Your entry was incorrect"
'if the entry is not valid, set the function to False and exit the function
ValidateEntry = False
Exit Function
End If
'if execution gets to here, the entry is valid, so pass back a True value
'to the function
ValidateEntry = True
End Function
13.5.13 Validating UserForm TextBox Input
The easiest way I have found is to do something like the following:
Do
myform.Show
VB.NET PDF - Create PDF Online with VB.NET HTML5 PDF Viewer
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET read barcodes from PDF, C#.NET OCR scan PDF. C# ASP.NET Document Viewer, C# Online Dicom Viewer
permanently rotate pdf pages; how to rotate pdf pages and save permanently
C# HTML5 PDF Viewer SDK to create PDF document from other file
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET read barcodes from PDF, C#.NET OCR scan PDF. C# ASP.NET Document Viewer, C# Online Dicom Viewer
pdf rotate pages and save; rotate pages in pdf online
246
'code or subroutine that validates the entries and
'exits the loop if OK
Loop
You could put code in your userform that validates it when the exit button is clicked.  However,
that frequently has one displaying aMsgBox on top of a userform, which is confusing.
13.5.14 Validating A TextBox Entry As A Number
Visual Basic does not provide any validation for userform text box entries.  Thus, you need to
use code to prevent a user from entering non
-
numeric entries when a number is required.  The
following code will validate an entry and only allow numeric entries:
'pass to this sub the textbox object (see example below)
Sub Validate_Number_Entry(oBox)
Dim tempS As String
'store the text in a variable for later use
tempS = oBox.Text
'if user has removed all entries, just exit
If tempS = "" Then Exit Sub
'if the entry is numeric, then exit
If IsNumeric(tempS) Then Exit Sub
'if the entry is not numeric, remove the last entry
oBox.Text = Mid(tempS, 1, Len(tempS) 
-
1)
End Sub
In the userform's code module, assuming that your text box is named textBox1, add the
following code:
Private Sub TextBox1_Change()
'call the validate routine and pass to it the textbox object
Validate_Number_Entry Me.TextBox1
End Sub
If you need to validate the entries and only allow two entries to the right of the decimal or need
to further validate the numeric entry, then use code like the following:
247
'pass to this sub the textbox object (see example above)
Sub Validate_Number_Entry(oBox)
Dim tempS As String
'store the text in a variable for later use
tempS = oBox.Text
'if user has removed all entries, just exit
If tempS = "" Then Exit Sub
'if the entry is numeric, check for a decimal
If IsNumeric(tempS) Then
If InStr(tempS, ".") > 0 Then
'if a decimal found check entry count following it
If Len(tempS) 
-
InStr(tempS, ".") > 2 Then
'if more than two entries, remove the third and advise user
MsgBox "Only two entries are allowed to " & _
"the right of the decimal place"
oBox.Text = Mid(tempS, 1, Len(tempS) 
-
1)
End If
End If
'exit sub as this is the end of the numeric testing
Exit Sub
End If
'if the entry is not numeric, remove the last entry
oBox.Text = Mid(tempS, 1, Len(tempS) 
-
1)
End Sub
13.5.15 Automatically Adding Hyphens To Phone Numbers In
Text Box
You can automatically add hyphens to an entry in a text box as the user is typing in a number.
Assuming that your textbox is named TextBox1, you can place the following code in the
userform's code module.  It checks the entry for hyphens, and adds as needed the code checks for
hyphens, and inserts new ones if necessary, to allow for editing of a previous entry
Private Sub TextBox1_Change()
Dim txt As String
248
Dim J As Integer
Dim I As Integer
Dim c
Dim hold
'get the entry in the textbox
txt = TextBox1.Text
J = 1
For I = 1 To Len(txt)
'extract character at position i
c = Mid(txt, I, 1)
If J = 4 Or J = 8 Then
If c = "
-
Then
'if already a "
-
" just add to hold string
hold = hold & c
J = J + 1
Else
'if not a "
-
" add a hyphen and increment J by 2
hold = hold & "
-
& c
J = J + 2
End If
ElseIf c <> "
-
Then
'if character position not 4 or 8, just add character to hold string
hold = hold & c
J = J + 1
End If
Next I
'if the length is 3 or 7, add a hyphen to the end
If Len(hold) = 3 And Right(hold, 1) <> "
-
Then _
hold = hold & "
-
"
If Len(hold) = 7 And Right(hold, 1) <> "
-
Then _
hold = hold & "
-
"
'update the text in the text box
TextBox1.Text = hold
End Sub
13.5.16 Forcing A Textbox to Accept Only Numbers
249
Code like the following in a userform's code module will force a textbox to accept only numbers
or the negative sign:
'Declare this at the top of the module
Dim previousEntry As String
Private Sub TextBox1_Change()
TextBox1.Text =Trim(TextBox1.Text)
If Not IsNumeric(TextBox1.Text)And _
TextBox1.Text <> "
-
"And _
TextBox1.Text <> ""Then
TextBox1.Text = previousEntry
End If
End Sub
Private Sub TextBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
previousEntry = TextBox1.Text
End Sub
13.5.17 Reading A Date From A Textbox
If you have a user type in a date into a textbox, you can read it as a date using a statement like
the following:
Dim inputDate As Date
InputDate =CDate(UserForm1.TextBox1.Text)
If you want to display a date in the textbox as an initial suggestion for the user, use a statement
like the following:
UserForm1. =Format(ActiveCell.Value, "mm/dd/yy")
13.6 COMBO, DROPDOWN, AND LIST BOXES
13.6.1 ListBox Differences
There are two list box controls in Excel. There is the old list box, associated with the Forms
toolbar and dialogsheets, and the new list box associated with the Control Toolbox toolbar and
userforms. You can see both in the Object Browser window if you right click the Classes list and
choose "Show hidden members".
The old listbox has aRemoveAllItems method. The new listbox has aClear method,
13.6.2 Populating A ComboBox or ListBox With External Data
250
The following articles discuss filling list boxes and combo boxes with data from an external
source such as Access.  The first article addresses the issue specifically (list box / combo box 
-
same approach) and the second gives you access to a list of multiple articles on using DAO.  The
first article pertains to the XL95 style list box, but can be easily adapted to XL97 style.
http://support.microsoft.com/support/kb/articles/Q149/2/54.asp
XL7: How to Return DAO Query Results Directly to a List Box
http://support.microsoft.com/support/excel/dao.asp
Using Data Access Object (DAO) in a Microsoft Excel Macro
13.6.3 Populating A List Box With Unique Entries
IF you wish to populate a listbox or a combobox with just the unique entries in a range, then use
code like the following:
SubPopulateListWithUniqueItems()
DimanyR As Range
DimlistCollection As New Collection
DimcMember
DimI As Integer
DimJ As Integer
DimlCount As Integer
DimcellAs Range
DimtempS
DimmyList()
'in this example, the entries are assumed to be in
'cells A1 to A20.
SetanyR = Range("A1:A20")
'on error must be set as an error is created
'when a duplicate item is added to the listCollection
'and we want the macro to continue
On Error Resume Next
For EachcellInanyR
If Not IsEmpty(cell)Then
'second argument as shown is needed
listCollection.Addcell.Value,CStr(cell.Value)
End If
Next
'turn off error handling
On Error GoTo0
'assign to a list for easier use
lCount = listCollection.Count
ReDimmyList(1TolCount)
For EachcMemberInlistCollection
I = I + 1
Documents you may be interested
Documents you may be interested