imports nbfSqlReporter
imports System.Windows.forms
imports System.IO
Public Class nbfAddPict
Inherits System.Windows.Forms.Form
Public Abandoned as Boolean
Public shared AppDir as string
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(nbfAddPict))
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Label2 = New System.Windows.Forms.Label
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.Button3 = New System.Windows.Forms.Button
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.HelpProvider1 = New System.Windows.Forms.HelpProvider
Me.SuspendLayout()
'
'RadioButton1
'
Me.RadioButton1.Location = New System.Drawing.Point(12, 20)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(204, 24)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.Text = "Get Filename From SQL Source"
'
'RadioButton2
'
Me.RadioButton2.Location = New System.Drawing.Point(12, 44)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(204, 24)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "Retrieve Picture From SQL Source"
'
'RadioButton3
'
Me.RadioButton3.Checked = True
Me.RadioButton3.Location = New System.Drawing.Point(12, 68)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(204, 24)
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.TabStop = True
Me.RadioButton3.Text = "Enter Filename Directly"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(8, 116)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(204, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = ""
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Location = New System.Drawing.Point(12, 96)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(92, 20)
Me.Label1.TabIndex = 4
Me.Label1.Text = "FileName"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(264, 16)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 20)
Me.Button1.TabIndex = 5
Me.Button1.Text = "OK"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(264, 44)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(56, 20)
Me.Button2.TabIndex = 6
Me.Button2.Text = "Cancel"
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(184, 152)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(92, 20)
Me.Label2.TabIndex = 8
Me.Label2.Text = "FileName"
Me.Label2.Visible = False
'
'ComboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.Location = New System.Drawing.Point(184, 176)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(204, 21)
Me.ComboBox1.TabIndex = 9
Me.ComboBox1.Visible = False
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(216, 116)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(68, 20)
Me.Button3.TabIndex = 10
Me.Button3.Text = "Browse"
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(12, 148)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(136, 16)
Me.CheckBox1.TabIndex = 11
Me.CheckBox1.Text = "Maintain Aspect Ratio"
'
'CheckBox2
'
Me.CheckBox2.Location = New System.Drawing.Point(12, 172)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(136, 24)
Me.CheckBox2.TabIndex = 12
Me.CheckBox2.Text = "Allow Stretch Height"
'
'nbfAddPict
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 197)
Me.ControlBox = False
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.RadioButton3)
Me.Controls.Add(Me.RadioButton2)
Me.Controls.Add(Me.RadioButton1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "nbfAddPict"
Me.Text = "Add Picture"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
if RadioButton3.Checked and trim(TextBox1.Text) = "" then
msgbox("No Filename entered")
exit sub
End If
Abandoned = False
Me.hide
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Abandoned = true
Me.hide
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim myStream As Stream
dim fn as String
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = AppDir
openFileDialog1.Filter = "Image files (*.bmp;*.jpg;*.gif;*.wmf)|*.bmp;*.jpg;*.gif;*.wmf|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
fn = openFileDialog1.FileName
textbox1.Text = fn
'myStream = openFileDialog1.OpenFile()
'If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
' myStream.Close()
'End If
End If
End Sub
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Me.helpProvider1.HelpNamespace = "OpenDoor.chm"
Me.helpProvider1.SetShowHelp(Me, True)
ComboBox1.Items.Add("Stretch")
ComboBox1.Items.Add("AutoSize")
ComboBox1.Items.Add("Centre")
ComboBox1.Items.Add("Normal")
ComboBox1.SelectedIndex = 0
End Sub
End Class