facebookegypt

'Visual basic online course
'Read Text Files in VB 2010

   Private Sub Form1_Load(sender As System.Object, _
   e As System.EventArgs) Handles MyBase.Load
      'Path to file
     Dim LocalFilePath As String = Application.StartupPath & "\MyFile.txt"
     Dim fileReader As String
     FileReader = My.Computer.FileSystem.ReadAllText(LocalFilePath,
                                                      System.Text.Encoding.ASCII)

facebookegypt

'Visual Basic Online Course
'2014
'VB 2010 Create TextBox Control at Run-Time with events

Public Class Form1
   Public MyNewTXT As TextBox = New TextBox
   Const FHEIGHT As Integer = 120
   Const FWIDTH As Integer = 300
   Dim PointX, PointY As Integer
   

facebookegypt

'Visual Basic Online Course
'VB 2010 Progress Bar
'Place this code in the Module section
Module Module1
   Public ProBar1 As ProgressBar = New ProgressBar
End Module

'Place this code in your form [Form1]
Public Class Form1

facebookegypt

'Visual Basic Online Course
'VB 2010 Insert InTo Values with Apostrophe
Function SqlStrAps(ByVal ToStr As String) As String
  SqlStrAps = "'" & Replace(ToStr, "'", "''") & "'"
End Function

'_OR, you can do this .

Dim SqlStr As String = _
"Insert Into Table_Name (Field1,Field2,Field3_With_Apostrophe)"

facebookegypt

'Visual Basic Online Course
'VB 2010 Fade Image

Imports System.Drawing.Imaging

Public Class Form1

   Dim BMP As Bitmap
   Dim ImgPath As String
   Dim ofd As New OpenFileDialog

facebookegypt

'Visual Basic Online Course - OOP
'OOP Lesson - Classes Intro
'Project : Email Validation
'Source : evry1.net/VBNet
Public Class Form1
   Private Sub BtnValid_Click(sender As System.Object, _
   e As System.EventArgs) Handles BtnValid.Click
   
      Dim X, Y As Integer
      X = TxtEmail.Text.IndexOf("@")

facebookegypt

'Visual Basic Online Course
'VB 2010 Add photo to Treeview
Public Class Form1
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    TRV1.ImageList = ImageList1
    'Parent Node
    TRV1.Nodes.Add(key:="Info", text:="First Name", imageIndex:=0)
    'First Child Node
    TRV1.Nodes(0).Nodes.Add(text:="Evry1falls", imageIndex:=1)
  End Sub

facebookegypt

<!-- Android Development Solution -->
 <?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
    android:orientation="vertical"
    android:layout_width="fill_parent"
    android:layout_height="fill_parent">

  <LinearLayout
      android:orientation="horizontal"
      android:layout_width="fill_parent"

facebookegypt

<!-- example: XML file saved at res/values/strings.xml:  -->
<!-- Android Development Solution  -->

<?xml version="1.0" encoding="utf-8"?>

<resources>

    <string name="yellow">Yellow</string>

</resources>

facebookegypt

' --------------------------------------- '
' Visual Basic Online Course ------------ '
' By / evry1.net ------------------------ '
' on Jan, 2014 -------------------------- '
' Facebook : fb.com/Visual.Basic.Language '
' --------------------------------------- '
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim cmdInput As String = TextBox1.Text.Trim & "&"
        Dim proc As New Process