Visual Basic

Dim dsFred = New DataSet
conn = New OleDbConnection("Provider=OraOLEDB.Oracle;User ID=test;Password=testPass;Data Source=ARC")
        sql = "select level from testTable where dTime LIKE to_date('3/27/2013','MM/DD/YYYY') and station = '019654' order by dTime"
        myCommand = New OleDbDataAdapter(sql, conn)
        myCommand.Fill(dsFred, "fred")
        Dim fred As Integer = dsFred.Tables("fred").Rows.Count

jan212r wrote:

I'm hiding a process with the api

jan212r wrote:

What else can I do?

Dim rec As APIKit.RECT
GetClientRect(h, rec)
InvalidateRect(h, rec, True)
UpdateWindow(h)

jan212r wrote:

What else can I do?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Enum ShowWindowCommands
  Hide = 0
  ShowNormal = 1
  ShowMinimized = 2
  ShowMaximized = 3
  Maximize = 3
  ShowNormalNoActivate = 4
  Show = 5
  Minimize = 6
  ShowMinNoActivate = 7
  ShowNoActivate = 8
  Restore = 9
  ShowDefault = 10
  ForceMinimized = 11
End Enum

jan212r wrote:

my enum

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Diagnostics
Module Module1
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean
    End Function
    Private Enum WindowShowStyle : uint
        Hide = 0
        Show = 5
    End Enum
    Sub Main()
        Dim p = Process.Start("calc.exe")
        Console.WriteLine("Any key to hide")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Hide)
        Console.WriteLine("Any key to show")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Show)
    End Sub
End Module

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean

Dim strFileName As String
Dim dlgXLS As New CFileDialog

With dlgXLS
  .Title = "Choose a Spreadsheet"
  .Filter = "Excel (*.xls)|*.xls|All Files (*.*)|*.*"
  .Flags = ofnFileMustExist OR ofnExplorer

  If OpenFileDialog() Then
    strFileName = .FileName
  End If
End With
Set dlgXLS = Nothing

Dim personl, person2 As Person
person1.Name =  "Mic"
person1.Stats.Height = 170

wsun87 wrote:

I'm facing a problem about how to zip the folder by using vb6.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]