dcsimg

Search:

Type: Posts; User: Muddy

Page 1 of 13 1 2 3 4

Search: Search took 1.73 seconds.

  1. Replies
    0
    Views
    848

    C++ COM ActiveX SQL VB6

    Need a full time programmer in the Houston area. Might consider a half time programmer with the right skills. This is for an application conversion from VB6 to C++. Must have intimate knowledge of...
  2. Replies
    0
    Views
    1,813

    C++ COM ActiveX SQL VB6

    Need a full time programmer in the Houston area. Might consider a half time programmer with the right skills. This is for an application conversion from VB6 to C++. Must have intimate knowledge of...
  3. Replies
    9
    Views
    770

    Re: sorting 2 dimantion array

    Yikes!! I forgot a critical loop, so it wont work as I originally posted in all cases, I dont think. Try this instead (untested):



    Sub specialSort(ByRef mArr() As Integer)
    Dim i As...
  4. Replies
    9
    Views
    770

    Re: sorting 2 dimantion array

    here's another alternative. I think it does what I think you asked for :)



    Sub specialSort(ByRef mArr() As Integer)
    Dim i As Integer
    Dim temp As Integer

    For i = 1 To...
  5. Thread: array position

    by Muddy
    Replies
    8
    Views
    640

    Re: array position

    not sure I understand the question. Once you load the arrays up with data, the data won't change unless you change it yourself (by sorting the array for example). If you loop through and find that...
  6. Re: Have a label caption become a random number

    label1.caption = Fix(Rnd() * 10)
  7. Thread: array position

    by Muddy
    Replies
    8
    Views
    640

    Re: array position

    max = 1
    For Counter = 2 To 5

    If clock(max) < clock(Counter) Then

    max = Counter

    End If

    Next
  8. Thread: array position

    by Muddy
    Replies
    8
    Views
    640

    Re: array position

    if it is more than a couple of pieces of info per card, I'd probably use a UDT:




    'IN A MODULE:
    Public Type tGraphicsCards
    Manufacturer As String
    Cost As Currency
    ClockSpeed As...
  9. Replies
    2
    Views
    373

    Re: Weird type mismath error

    it's too painful to read in this format ;)
    please:
    1) indent your code
    2) put it in code tags when posting
    3) specify which line the error occurs on
  10. Replies
    7
    Views
    7,128

    Re: Control licensing in Windows 7

    From: http://msdn.microsoft.com/en-us/vbasic/ee413549

    "Microsoft will support your existing Visual Basic 6 components and applications through the lifetime of Windows 7 client and 2008 R2 server."...
  11. Replies
    5
    Views
    909

    Re: Connect to Access Database

    Recordcount returns -1 for forwardonly cursors. Try specifying the cursor type:

    rs = New ADODB.Recordset, adOpenStatic

    also, sometimes you have to "jiggle" it to get the recordcount property...
  12. Replies
    3
    Views
    808

    Re: Change 1 line in 50MB textfile

    try the code below on a text file (C:\test.txt) with the following contents:

    linea
    line1
    my line to find
    line2
    line3
    line4
  13. Replies
    3
    Views
    808

    Re: Change 1 line in 50MB textfile

    If you can determine the exact byte position of the line, and the exact number of bytes of the line, maybe you could map a network drive and open the file for binary access and Put the new string in....
  14. Replies
    5
    Views
    1,086

    Re: [RESOLVED] string size

    Passing a string to/from a Windows API dll, for example, requires "allocated space" in the string variable. Ive seen this done by dimming the string as fixed length (dim strVAR as String*512) and...
  15. Replies
    1
    Views
    3,897

    Re: cant load msado.tlh

    Seems there must be an issue with my VS2010 which is odd since I just recently installed it. I have a side by side installation of VS2008 that I tried this in. It works with some issues which were...
  16. Replies
    4
    Views
    566

    Re: Creating a Big array

    you cant dim a public array inside the form code module. Youll have to insert a new code module and put it there. Im surprised youd didnt get a specific warning stating that when you tried to run...
  17. Re: format issue when writing txt file using open stat

    try this: put your header print outside the loop. then replace all those print statements with a single print with the database column data delimited by vbtab.

    edit: guess that isnt a header...
  18. Replies
    2
    Views
    512

    Re: [HELP] Align Text !

    assuming the text is all in a single string variable:



    Dim strText As String
    Dim a() As String
    Dim i As Integer
    strText = " Name: XXXX XXXX" & vbCrLf & " Age : 23" & vbCrLf...
  19. Replies
    1
    Views
    3,897

    [RESOLVED] cant load msado.tlh

    I cant seem to make this statement work in a header file (Visual Studio 2010):

    #import "msado15.dll"

    Ive also tried the full path to msado.dll. Ive tried to clean the solution and full...
  20. Replies
    2
    Views
    581

    Re: Display files from certain folder in vb6

    just realized after reading your other post that you are using the WMP control. Try this:



    Option Explicit
    Dim strFileName As String

    Private Sub Command1_Click()
    ...
  21. Replies
    4
    Views
    784

    Re: Read from .txt file on seperate lines ?

    Use a control array. Do this by adding index numbers in the property window for your button(s).

    Then:



    Dim a() As String

    Private Sub Command1_Click(Index As Integer)
    Text1.Text =...
  22. Replies
    4
    Views
    784

    Re: Read from .txt file on seperate lines ?

    read the whole file into an array and and display the text from the array element corresponding to the line number. Of course, load the array just once (form load event maybe) and not everytime user...
  23. Replies
    2
    Views
    581

    Re: Display files from certain folder in vb6

    Dim strFileName As String
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters...
  24. Replies
    34
    Views
    2,590

    Re: SSTab with multiple tables

    Drop an SSTab ( TABCTL32.OCX ) control on a form.
    Right click the SSTAB control - properties - set tabcount and tabsperrow to 4
    Left click Tab0 - put a grid (Grid1) in the tab container
    Left...
  25. Replies
    0
    Views
    714

    C++ course for other language programmers

    Can anyone recommend a good intensive C++ (or VC++) course that is geared toward people with other (non C) language programming experience (Basic and VB6)? I wouldnt want to spend any time on...
  26. Replies
    34
    Views
    2,590

    Re: SSTab with multiple tables

    Maybe you're confusing the use of SSTab control with the regular Tab control.

    The SSTab control has a container for each tab ... each container would have its own Textbox, grid, label, etc to...
  27. Re: Error with loop, being stuck in an infinite for times loop

    Sure, just get rid of the timer altogether and call the sub once (from the formLoad event, or a button click, or a menu option, etc). What's the intended purpose of using the timer, anyway?
  28. Replies
    8
    Views
    995

    Re: VB 3 program disks

    about $10 plus postage from YankeeRebel? :)
  29. Thread: Vb 6

    by Muddy
    Replies
    13
    Views
    974

    Re: Vb 6

    Select Case UCase(txtUserName.Text & "HSFC")
    Case "ADBHSFC", "CDEHSFC", "FGHHSFC", "XYZHSFC" ' etc but type upper case only
    ' ok, username acceptable
    Case Else
    ' display...
  30. Re: Error with loop, being stuck in an infinite for times loop

    just to clarify on your code i loaded into a new project:

    overall the sub with the loop is being called 155 times as expected.
    each call causes 4 Prints as expected.
    overall file there are 620...
  31. Thread: Vb 6

    by Muddy
    Replies
    13
    Views
    974

    Re: Vb 6

    try this


    Dim recognizedUsers As String
    recognizedUsers = "|ADB|user1|user2|user3|"
    If len(txtUsername.Text) > 1 and InStr(recognizedUsers, txtUsername.Text) > 0 Then
    'username is valid...
  32. Re: Error with loop, being stuck in an infinite for times loop

    i actually put your code in a new project and it loops 4 times as expected.
  33. Re: Error with loop, being stuck in an infinite for times loop

    maybe the timer is never getting disabled. maybe it isnt the same loop, but just the timer firing again. put a breakpoint here and see if that is the case and why:


    If Ptr <...
  34. Re: Error with loop, being stuck in an infinite for times loop

    You should always have the line of code:
    Option Explicit

    as the the first line of code of any module or form.

    This will force you to declare variable before you use them and avoid things...
  35. Re: Newbie with simple file name/rename question

    couldnt find it. must have been before the big meltdown years ago. Anyway this claims to do the trick:

    http://www.freevbcode.com/ShowCode.asp?ID=708
  36. Re: Newbie with simple file name/rename question

    you can use a FileListBox which can be found in the vb6 toolbox without adding anything. Somehting like this:



    File1.Path = "C:\Test"
    Dim a() As String
    ReDim a(File1.ListCount)
    For i = 0 To...
  37. Replies
    2
    Views
    602

    Re: VB6 Loop Error

    I'm assuming your posted code is an example and not from the actual code. My best guess from the information you provide is that you have a scope problem. Here's a theory for somehting you might...
  38. Re: Expected Value of Stack Sizes in Poker (Difficult)

    :thumb::thumb::thumb::thumb:
  39. Re: Newbie with simple file name/rename question

    There is an intrinsic function to copy:

    FileCopy(source as String, destination as String)

    that will copy the file to the new path. And there is an intrinsic function to delete the the old file...
  40. Replies
    4
    Views
    4,751

    Re: convert a binary file to ascii

    Something like this?:



    Private Sub Command1_Click()
    Dim aa() As Byte, bb() As Byte, strbb As String
    Dim straa As String
    Dim i As Long

    Open "C:\Test.jpg" For Binary As #1
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Featured


Click Here to Expand Forum to Full Width