Microsoft VB.NET

Code Libraries

 

Articles

 

Ebooks

   

DevX Video Library: .NET Framework streaming videos (Microsoft)
MSDN Webcasts: (.Net Online Seminars - Archives)
Microsoft Webcasts on Demand - Developer UK
Visual Studio.Net:  Multimedia Demos (VBTV)
Sams: Birds-of-a-Feather Lounge

.NET User Groups -  Microsoft Events


' File..New 
txtEdit.Text = ""		  
' File Open
OpenFileDialog1.Filter = _
"Text Files|*.txt|All Files|*.*"
OpenFileDialog1.FilterIndex = 0
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim FS As FileStream
FS = OpenFileDialog1.OpenFile
Dim SR As New StreamReader(FS)
txtEdit.Text = SR.ReadToEnd
SR.Close()
FS.Close()
End If		 'File Save as
SaveFileDialog1.Filter = _
"Text Files|*.txt|All Files|*.*"
SaveFileDialog1.FilterIndex = 0
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim FS As FileStream = SaveFileDialog1.OpenFile
Dim SW As New StreamWriter(FS)
SW.Write(txtEdit.Text)
SW.Close()
FS.Close()
End If
'Copy
' Copy the TextBox's selected text to the clipboard.
Dim t As String = txtEdit.SelText
' Copy the entire Text, if no text is selected.
If t.Length = 0 Then t = txtEdit.Text
' Proceed only if there is something to be copied.
If t.Length > 0 Then
Clipboard.SetDataObject(t)
End If		 'paste
' Get the data currently in the clipboard.
Dim data As IDataObject = Clipboard.GetDataObject
' Check if there is any data in text format, converting it if necessary.
If data.GetDataPresent(DataFormats.Text, True) Then
' If yes, paste into the selection.
txtEdit.SelText = data.GetData(DataFormats.Text, True).ToString
End If
  'Fonts
FontDialog1.ShowColor = True

FontDialog1.Font = txtEdit.Font
FontDialog1.Color = txtEdit.ForeColor

If FontDialog1.ShowDialog() <> DialogResult.Cancel Then
txtEdit.Font = FontDialog1.Font
txtEdit.ForeColor = FontDialog1.Color
End If
   
   
   
   
   
  Public Sub mnuAbout_Popup(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuAbout.Popup
mnuAbout_Click(eventSender, eventArgs)
End Sub
Public Sub mnuAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuAbout.Click
Dim moreInfo As String
moreInfo = System.Reflection.Assembly.GetExecutingAssembly.GetName.Name & "- Written 2000" & Chr(13)
moreInfo = moreInfo & " by Debbie St. George"
Call ShellAbout(Me.Handle.ToInt32, System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, moreInfo, CInt(CObj(Me.Icon)))
End Sub
Public Sub mnusearch_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnusearch.Click
Static Searchstring, Newsearchstring As String
Dim activeform_Renamed As Object
Dim t As Short
' Default to previous search string.
' If match is found, leave matching text selected.
Newsearchstring = InputBox("Enter search string", "", Searchstring)
If Newsearchstring = "" Then Exit Sub
Searchstring = Newsearchstring
t = InStr(txtEdit.SelStart + 1 + txtEdit.SelLength, txtEdit.Text, Searchstring)
If t Then txtEdit.SelStart = t - 1
txtEdit.SelLength = Len(Searchstring)
' End If
End Sub
 'Machine Info
MsgBox("Machine Name: " & Environment.MachineName & " UserName: " & Environment.UserName & " User Domain: " & Environment.UserDomainName)
Private Sub MenuExcelAutomationItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExcelAutomationItem1.Click

' Declare variables.
Dim oExcel As Excel.Application
Dim oCommandBar As Office.CommandBar
Dim oPopup As Office.CommandBarPopup

' Start Excel.
oExcel = New Excel.Application()
' Show Excel and set UserControl.
oExcel.Visible = True
oExcel.UserControl = True
' Add a new workbook.
oExcel.Workbooks.Add()
End Sub		 MessageBox.Show("Are you sure you want to quit?", _
MessageBoxButtons.YesNo)
Me.Close()
Application.Exit()

 

Private Sub cmdStartupForce_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdStartupForce.Click
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("Startup Force" & "{ENTER}")
End Sub		 Private Sub cmdViewTablespaces_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdViewTablespaces.Click
AppActivate("Oracle SQL*Plus")
' SendKeys "SELECT * FROM DBA_TABLESPACES;" & "{ENTER}", True
System.Windows.Forms.SendKeys.SendWait("SELECT TABLESPACE_NAME FROM DBA_TABLESPACES;" & "{ENTER}")
End Sub
Private Sub cmdSystemManager_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdsystemmanager.Click
OracleRichTextBox.Text = "Connected as Internal"
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("connect system/manager" & "{ENTER}")
End Sub		 AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("SELECT DEFAULT_TABLESPACE, TEMPORARY_TABLESPACE FROM USER_USERS;" & "{ENTER}")
Private Sub cmdSetServerOn_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSetServerOn.Click
OracleRichTextBox.Text = "SET SERVEROUTPUT ON"
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("SET SERVEROUTPUT ON" & "{ENTER}")
End Sub
 Private Sub cmdShoUSer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdShoUSer.Click
' Dim ShoUser
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("Sho User" & "{ENTER}")
' OracleRichTextBox.Text = "User is " & ShoUser
End Sub
Private Sub cmdDescUserObjects_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDescUserObjects.Click
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("DESC USER_OBJECTS;" & "{ENTER}")
System.Windows.Forms.SendKeys.SendWait("SELECT OBJECT_NAME, OBJECT_TYPE FROM USER_OBJECTS;" & "{ENTER}")
End Sub		 Private Sub cmdRunOracleSQLFile_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("@" & txtformname.Text & "{ENTER}")
End Sub
Private Sub cmdDescAllTables_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDescAllTables.Click
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("DESC ALL_TABLES;" & "{ENTER}")
System.Windows.Forms.SendKeys.SendWait("SELECT TABLE_NAME, OWNER FROM ALL_TABLES;" & "{ENTER}")
End Sub		 Private Sub cmdDescribeTables_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDescribeTables.Click
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("DESC USER_TABLES;" & "{ENTER}")
System.Windows.Forms.SendKeys.SendWait("SELECT TABLE_NAME FROM USER_TABLES;" & "{ENTER}")
End Sub
Private Sub CmdConnectInternalOracle_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdConnectInternalOracle.Click
OracleRichTextBox.Text = "Connected as Internal"
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("connect internal/oracle" & "{ENTER}")
End Sub
 Private Sub cmdConnExcomp_world_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdConnExcomp_world.Click
OracleRichTextBox.Text = "Connected to excomp.world"
AppActivate("Oracle SQL*Plus")
System.Windows.Forms.SendKeys.SendWait("connect stgeorge/changeme @debexcomp.world" & "{ENTER}")
'SendKeys "SELECT TABLESPACE_NAME FROM DBA_TABLESPACES;" & "{ENTER}", True
End Sub