dcsimg

Search:

Type: Posts; User: Stupidiot

Page 1 of 3 1 2 3

Search: Search took 0.13 seconds.

  1. Re: Opening a file with the associated application

    Try this:




    #If Win32 Then
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile _
    As String, ByVal...
  2. Re: Function Returning RecordSet and Calling

    Function Get_Scroll_Summary(ByVal v_date As Date) As ADODB.Recordset

    sql = "SELECT COUNT(amount), SUM(amount) FROM tblScrolls WHERE REPORTING_DATE= '" & v_date & "'"

    If rs.State = 1...
  3. Replies
    17
    Views
    1,123

    Re: On Error not working

    xHold = Shell("c:\windows\Explorer.exe C:\Log", vbNormalFocus) -> this line could generate an explorer error "path not exists"
  4. Replies
    2
    Views
    346

    Re: refresh database

    Try This:


    Add Event()

    After Update:

    NewForm/OldForm.Recordset/Data/Adodc/.Refresh
    NewForm/OldForm.Datagrid.Refresh
  5. Replies
    12
    Views
    15,522

    Re: Data Report LandScape Orientation

    Try this:

    http://support.microsoft.com/kb/261193
  6. Re: Remove focus from a listbox item when clicking an empty area of the same listbox?

    Try this:

    Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If List1.ListIndex = -1 Then ' or List1.ListCount = 0
    MsgBox "Its empty"
    Me.Show
    ...
  7. Re: Remove focus from a listbox item when clicking an empty area of the same listbox?

    'To remove List selection highlighter

    If List1.ListIndex <> -1 Then
    List1.Selected(List1.ListIndex) = False
    End If

    'To remove focus of a control
    AnotherControl.Setfocus / SendKeys "{TAB}"
  8. Re: Compile error- method or data member not found

    Change the view of the listview to 2-lvwlist and see...
  9. Re: Compile error- method or data member not found

    Remove the index of following TextBoxes:
    txtSiteAllow
    txtFixedAllow
    =====================
    DisconnectFromDB()
    If Not mobjConn Is Nothing Then mobjConn.Close...
  10. Replies
    21
    Views
    1,408

    Re: to form always in the form of a program

    I hope this will help you, Insert a timer control -interval-1 on Main Form:

    MainForm Declaration area

    Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
    Dim LFocus As Boolean...
  11. Re: to imve picture in picture bix using scroll bars

    http://www.vbforums.com/showthread.php?t=658044

    See my post No:18
  12. Re: lines drawn in picturebox not shown in autocad

    Picture Box Moving - Scrollbar / Drag method Examples
  13. Re: Scroll-wheel event caught by control without focus?

    I think you need focus...But still you can do scroll without mouse: see this:
  14. Re: getting some specific value from string manipulation function

    Right(xlRec.SalesID, 8)

    This should be working, if the Cell format = Text

    If the "0000" - 4 zeros are fixed then just add "0000" & the whole number you are getting:

    dim x as string

    x=...
  15. Re: Edit the the thing the variable is pointing to (vb6)

    Then you should edit the Text1:

    Form1!text1.Text = Form1!text1.Text & "a"

    Form1!text1.Text = Form1!text1.Text & "b"

    etc;
  16. Replies
    13
    Views
    4,058

    Re: How to convert Array index to row/column

    20R/10C (20,10) Array used in this Example:


    Option Explicit

    Private Const ROW_COUNT As Long = 20
    Private Const COLUMN_COUNT As Long = 10

    Private Type RowsCols
    Row As Long
  17. Replies
    16
    Views
    5,164

    Re: Detect if program is not responding!

    U can create a txt file to check this:
    Every 3 minutes - Timer-60000*3 - the main program “cserver.exe” will write the current time in a file:


    WriteAlive()
    Open App.Path & "\Live.txt" For...
  18. Replies
    12
    Views
    1,420

    Re: Textbox validation code

    Confusion is here:



    Private Sub EnterButton_Click()
    Dim Str As String
    Str = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)
    If Str <> "" Then
    Text1.Text = "" '/ Text1.SelText = ""
    End...
  19. Replies
    5
    Views
    640

    Re: what is this?!

    It is nothing just a picture...Clear the picture property of form..that's it...
  20. Re: Is it possible scroll the form in vb 6.0

    'Insert an MDI Form and Form1
    'Change Form1.BorderSyle = 0, Form1.MDIChild = True at design Time
    'Insert Controls Text1, Text2 on Form1

    'In this example:
    'Text1 = Last Down/Bottom Side Control...
  21. Replies
    13
    Views
    1,004

    Re: can anyone suggest me a project

    This is not going to work at least for me because:
    I don't know your Interests, strength, area of specialization, programing skills & Levels etc.
    How can i suggest a Project? May be i can suggest...
  22. Replies
    9
    Views
    761

    Re: GOTo teh certain line in txt file

    Try This:


    Public Function ReadFile(TxtFileName As String, LineNum As Long) As String
    If LineNum <= 0 Then
    ReadFile = "Invalid Line Number!" & vbNewLine & vbNewLine & "Line Number Must be...
  23. Replies
    2
    Views
    395

    Re: Program Resolution Scaling

    Check out : http://support.microsoft.com/kb/182070
  24. Replies
    23
    Views
    3,047

    Re: Gradient Gauges

    Hey petersen, Why don't you blend blue & Red at starting point of gauge color change and gradually red...it will become more perfect...anyway good work
  25. Re: How to open the folder explorer right click menu in Visual Basic?

    The simple way is....Insert a Web-browser control from components:


    Private Sub Form_Load()
    WebBrowser1.Navigate "C:\"
    End Sub

    Windows explorer at your service....
  26. Replies
    7
    Views
    593

    Re: Form Click Event Doesnt Fire

    Check & make sure... you are clicking on splash form.... I believe you are clicking on controls like label / image /picture box on the splash form
  27. Replies
    10
    Views
    1,231

    Re: vb6 'rte 53: file not found'

    I think you have to declare the mbox
    'dim mb as mbox / 'set mb=new mbox / dim mb as new mbox

    Private Sub Form_Load()

    MB.mbox ("hello world")

    End Sub
  28. Re: how i can add two datasource in same time for datareport >_

    If you are using *.mdb then Try something like:

    SqlStr = "SELECT TblDb1.ID, TblDb1.Name, TblDb2.ID1, TblDb2.Name1"
    SqlStr = SqlStr & " FROM [;database=Path\DB1.MDB].TblDb1, "
    SqlStr = SqlStr ...
  29. Replies
    12
    Views
    6,430

    Re: Listview .EnsureVisible issue

    This example is from MSDN Library: Check your code with this example

    FindItem Method Example
    This example populates a ListView control with the contents of the Publishers table of the Biblio.mdb...
  30. Re: Working with UserControl, SSTab and Forms...

    Change the scale mode of SSTab to Twips and Paste this code:

    Private Sub UserControl_Resize()
    SSTab1.Move 0, 0, UserControl.Width, UserControl.Height
    lab_CtrlContainer1.Move 60, 60 + 300,...
  31. Replies
    7
    Views
    663

    Re: UserControl Issue

    Both User controls are on a form...right?


    Dim ctl As Control

    For Each ctl In UserControl1.Parent.Controls

    If TypeName(ctl) = "Usecontrol2" Then
    ctl.Dash = Dash
    Dash =ctl.Dash
  32. Re: set the datasource for textbox

    how can i set the datasource of the textbox to the table?



    Private Sub Form_Load()
    Call OpenDB
    rs.CursorLocation = adUseClient
    rs.Open "select * from tblItms_F001",...
  33. Replies
    8
    Views
    1,703

    Re: On Error doesn't work....

    Pincounter=txtNote.count then Try this:

    For n = 1 To PinCounter-1
  34. Re: How to make a volume control slider like object

    I have added this dll for a testing purpose and forgot to remove the reference. I think, Even a beginner can identify that yacsui.dll can do nothing with this project and it's not like the one in...
  35. Replies
    2
    Views
    12,625

    Re: A Basic Volume Slider Control

    updated version:
    http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73979&lngWId=1
  36. [vb6] BasiComb - A 'Drop buttonless' Drop Down Combo

    This 'Drop buttonless' Drop Down Combo can also be used as Flexgrid - Overlayed input Drop Down Combo. Height can't be reduced less than font size of the combo, but can be maximized without any...
  37. Replies
    2
    Views
    12,625

    A Basic Volume Slider Control

    [VB6] No Api's/Draw/Class used...
  38. A Basic Marquee/Flash News/Data Scroller Control

    [VB6] No Class, No API's...Simplicity is the Power
  39. Replies
    0
    Views
    7,512

    Basic Calculator

    [VB6] A Basic Calculator:

    A Direct / Indirect / On the Fly Calculator Control with functions return capability (Created on the fly)
  40. Replies
    7
    Views
    11,740

    Re: Auto selecting first row in listview items

    How i can show first row highlighted?

    Make sure the following:

    1. ListView.View = lvwReport
    2. ListView Property: FullRowselect=True
    3. Active Control: ListView

    Code: Same as above
Results 1 to 40 of 97
Page 1 of 3 1 2 3



Featured


Click Here to Expand Forum to Full Width