Click here to Skip to main content
       

Visual Basic

 
GeneralRe: VB.NET / APPLICATION SETTINGS PinmvpDave Kreskowiak29-Nov-12 16:50 
QuestionMouse Down Event and Flag setting Pinmemberbig_col28-Nov-12 20:53 
AnswerRe: Mouse Down Event and Flag setting PinmemberSimon_Whale28-Nov-12 23:46 
GeneralRe: Mouse Down Event and Flag setting Pinmemberbig_col29-Nov-12 3:09 
GeneralRe: Mouse Down Event and Flag setting PinmemberSimon_Whale29-Nov-12 4:06 
AnswerRe: Mouse Down Event and Flag setting Pinmemberbig_col29-Nov-12 21:19 
AnswerRe: Mouse Down Event and Flag setting PinmemberAlan N29-Nov-12 4:09 
Questionvb6 to .net Pinmemberdvdljns28-Nov-12 8:42 
I find I need an old vb program on win7 but got out of doing stuff like this. Despite the fact that some ways of doing things was dropped in modern windows I am guessing there is a replacement. I know send keys was considered un reliable but the problem was finding what window was the focus. Chances are the window is called something else. A good example is the program I need this for when the window is open there is no title to be seen. all my research says that vb6 is an unreliable or troublesome install on win 7. I have the source for an old vb program and have been advised to find a net replacement. And was wondering how others handled the same problems. For instance the converter by microsoft. Does it work. And how much should I expect to be converted and how much should I expect to hand code.
here is what I am talking about.
 
<pre lang = "vb">
<pre>VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1995
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4185
   LinkTopic       =   "Form1"
   ScaleHeight     =   1995
   ScaleWidth      =   4185
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Left            =   540
      Top             =   930
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Private Sub Form_Load()
    Timer1.Interval = 100
End Sub
    
Private Sub Timer1_Timer()
    Static lHwnd As Long
    Dim lCurHwnd As Long
    Dim sText As String * 255
    
    lCurHwnd = GetForegroundWindow
    If lCurHwnd = lHwnd Then Exit Sub
    lHwnd = lCurHwnd
    If lHwnd <> hwnd Then
        Caption = "ActiveWidow: " & Left$(sText, GetWindowText(lHwnd, ByVal sText, 255))
        Debug.Print Caption
    Else
        Caption = "ActiveWindow: Form1"
    End If
End Sub
Is there an easy way to do this on win 7?
AnswerRe: vb6 to .net PinmemberZaf Khan28-Nov-12 17:58 
GeneralRe: vb6 to .net Pinmemberdvdljns1-Dec-12 6:47 
GeneralRe: vb6 to .net PinmemberZaf Khan1-Dec-12 9:00 
AnswerRe: vb6 to .net PinmvpDave Kreskowiak28-Nov-12 19:04 
QuestionDeleting a datarow, creating a query to find the row. - ANSWERED, Thank yo [modified] PinmemberJRHibner28-Nov-12 0:30 
AnswerRe: Deleting a datarow, creating a query to find the row. PinmemberAndy_L_J28-Nov-12 23:30 
GeneralRe: Deleting a datarow, creating a query to find the row. PinmemberJRHibner1-Dec-12 8:21 
GeneralRe: Deleting a datarow, creating a query to find the row. PinmemberAndy_L_J1-Dec-12 21:27 
GeneralRe: Deleting a datarow, creating a query to find the row. PinmemberJRHibner9-Dec-12 15:55 
QuestionModified Registry Key Pinmemberalirezamansoori27-Nov-12 19:52 
AnswerRe: Modified Registry Key PinmvpRichard MacCutchan28-Nov-12 1:02 
GeneralRe: Modified Registry Key Pinmemberalirezamansoori28-Nov-12 1:39 
GeneralRe: Modified Registry Key PinmvpRichard MacCutchan28-Nov-12 2:15 
QuestionLooking for idea for learning book PinmemberNaZReD24-Nov-12 10:08 
AnswerRe: Looking for idea for learning book PinmemberEddy Vluggen27-Nov-12 13:58 
QuestionInstall SQL Server on Another Computer without reach there PinmemberUmesh Bachchani24-Nov-12 8:03 
AnswerRe: Install SQL Server on Another Computer without reach there PinmemberEddy Vluggen27-Nov-12 13:59 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.1411023.1 | Last Updated 26 Nov 2014
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid