Search:
Type: Posts; User: Stupidiot
Search:
Search took 0.06 seconds.
-
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...
-
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...
-
xHold = Shell("c:\windows\Explorer.exe C:\Log", vbNormalFocus) -> this line could generate an explorer error "path not exists"
-
Try This:
Add Event()
After Update:
NewForm/OldForm.Recordset/Data/Adodc/.Refresh
NewForm/OldForm.Datagrid.Refresh
-
Try this:
http://support.microsoft.com/kb/261193
-
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
...
-
'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}"
-
Change the view of the listview to 2-lvwlist and see...
-
Remove the index of following TextBoxes:
txtSiteAllow
txtFixedAllow
=====================
DisconnectFromDB()
If Not mobjConn Is Nothing Then mobjConn.Close...
-
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...
-
http://www.vbforums.com/showthread.php?t=658044
See my post No:18
-
Picture Box Moving - Scrollbar / Drag method Examples
-
I think you need focus...But still you can do scroll without mouse: see this:
-
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=...
-
Then you should edit the Text1:
Form1!text1.Text = Form1!text1.Text & "a"
Form1!text1.Text = Form1!text1.Text & "b"
etc;
-
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
-
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...
-
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...
-
It is nothing just a picture...Clear the picture property of form..that's it...
-
'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...
-
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...
-
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...
-
Check out : http://support.microsoft.com/kb/182070
-
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
-
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....
-
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
-
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
-
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 ...
-
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...
-
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,...
-
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
-
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",...
-
Pincounter=txtNote.count then Try this:
For n = 1 To PinCounter-1
-
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...
-
updated version:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73979&lngWId=1
-
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...
-
[VB6] No Api's/Draw/Class used...
-
[VB6] No Class, No API's...Simplicity is the Power
-
[VB6] A Basic Calculator:
A Direct / Indirect / On the Fly Calculator Control with functions return capability (Created on the fly)
-
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
|
Click Here to Expand Forum to Full Width
|