Recent content by oka

  1. O

    Create a brush

    Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim redBrush As New...
  2. O

    Watch for file system changes

    Public Class Form1 Inherits System.Windows.Forms.Form Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed ListBox1.Items.Add(e.Name & " - " & _ e.ChangeType.ToString())...
  3. O

    work with operators

    Module Module1 Sub Main() Dim x As Integer = 2 Dim y As Integer = 5 Dim z As Integer = 6 Dim answer As Integer answer = (x * y) + z Console.WriteLine(answer) Dim a As Boolean = True Dim b As Boolean = False Dim...
Top Bottom