Search:
Type: Posts; User: 4x2y
Search:
Search took 1.15 seconds; generated 46 minute(s) ago.
-
I was aware about this point (see above replay #5) but i didn't implement that case to let him fix or ask for a solution if he fail :)
Another way using Select Case instead of If
...
-
It is not difficult if you organized your ideas, also well named variables helps readability and understanding, try to follow this
'1. define a variable named strIn to receive user's input
...
-
After receiving user's input in SENTENCE variable, use code like the following to detect each character case
For j = 0 To SENTENCE.Length - 1
c = SENTENCE.Substring(j, 1)
...
-
Try this
Private Sub lvw_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim i As Long
Dim n As Long
Dim t As String
For i = 1 To lvw.ListItems.Count
If...
-
You can use classic theme for your .NET app by unchecking the option Enable XP visual styles, find it in project Properties> Application page
-
I think you have to think of setting Picture1 as parent of Picture2, this may save you a lot of extra calculation if you move both relatively, to do at run time
Private Sub Form_Load()
Set...
-
-
That code is OK if Picture1 is parent of Picture2, if it isn't then you should use the following code
Picture2.Left = Picture1.Left + (Picture1.Width / 2) - (Picture2.Width / 2)
Picture2.Top =...
-
Try this new version
Private Function Find(ByVal strSearchIn As String) As String()
Dim sI() As String
Dim sF() As String
Dim sRet() As String
Dim j As Long
Dim c As Long...
-
Can you be more clear? First you said that you want to extract 1941u, 1941j, 1941, and now say you want to extract all list!
-
Try this function
Private Function Find(ByVal strSearchIn As String, ByVal strSearchFor As String) As String()
Dim sI() As String
Dim sF() As String
Dim sRet() As String
Dim j...
-
You have to iterate controls in pnlAuditorium1 not Me
Public Class frmMain
Dim availableIcon As New System.Drawing.Bitmap(My.Resources.Available)
Dim provisionalIcon As New...
-
To add a PictureBox to Panel, specify Panel's Controls property instead of Form's Controls property e.g.
Panel1.Controls.Add(PictureBox1)
-
Try the attached project
171367
-
Your mistake is declaring Seconds param as Long instead of Single, so if you call it with 0.1, it will be round to 0 and call it with 0.6, it will be round to 1
Try this optimized code
Public...
-
My code (post #5) will do what you ask for.
-
Start new project, add Command1, File1, List1 and List2 then paste the following code and run
It is quick and dirty code but you can adapt it to meet your needs.
I'm using File control which is...
-
Do need a high precision timer? If so, see this http://www.devx.com/vb2themax/Tip/18482
-
-
That's because LsvwCusts_ItemChecked is called each time adding an item, to resolve this issue use RemoveHandler before populating the ListView and AddHandler after finishing e.g.
Private...
-
For me today is exactly 13 years :) Sep 15th, 2006
-
Try this
Private Sub LsvwCusts_ItemChecked(sender As Object, e As ItemCheckedEventArgs) Handles LsvwCusts.ItemChecked
LblCustomerCount.Text = CStr(LsvwCusts.CheckedItems.Count)
...
-
I have created a function called GetNotFoundList that you pass a file contents and it will returns all lines contains "NOT FOUND" string, to test
1- Start new project, add Command1, List1 and...
-
I made a little macro that do the following
1- Send <Ctrl+C> to Firefox
2- Get clipboard text and save the setting name only in a string variable named f
3- Send <Down> arrow
4- Goto step #1...
-
It is possible to show an empty DateTimePicker like this
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If IsDate(dt) Then ' dt is a date string...
-
If you are interested only to know whether the two files are identical without needing to know what and/or where is the difference then you can simply create the hash code of the two file and compare...
-
If it is String array, you can use Split function
Option Explicit
Private MyArray() As String
Private Sub Form_Load()
MyArray = Split("310,191,272,etc,etc", ",")
End Sub
-
@cosmicmurder
Enclose the code between [code] tag not [quote] and also indent it to easily follow nested statements
Sub CopyRimColor()
Dim screenText As String
With Session
...
-
You can use Shape control to draw the border, e.g.
Private Sub Redraw()
If VarPicture Is Nothing Then
UserControl.BackColor = VarBackColor
Else
...
-
Actually it has because you cannot retrieve a subitem's Text without knowing its index, e.g. 2 is the index of the subitem in the following line
MsgIndex = CInt(Item.SubItems(2).Text)
-
It is nice that you have figured it out yourself, it is good to post your solution to help others may have the same problem, and also to get advice from power members in case there are better...
-
As far as the code enters the Catch block, that's mean there is an error occurred in Try block, you have to check the exception ex to know that error.
Read Try...Catch documentation...
-
It isn't clear what exactly you want to do, but you can pass an order to your app using command line argument...
-
Usually a solution in thread that marked as resolved is the last one (if there are more one), because OP continue asking until he get the answer he want.
-
The simple solution is setting Anchor property of the controls in UC at design time, e.g. if all controls above each other, set their Anchor property to Top, Left, Right then rebuild the project and...
-
Oops, I have posted VB.NET code while it is VB6 forum, sorry. Here is equivalent VB6 code
Option Explicit
Private Sub Form_Load()
If Command = "-r" Then
MsgBox "This instance has...
-
Another way is actually re-run from the Form's Closed event, create new project, paste the following code and run
Option Strict On
Option Explicit On
Public Class Form1
Private Sub...
-
This can happen if you switch to another TopMost form or App.
-
You are welcome, please mark this thread as resolve
-
You have to read with the correct encoding then save it as UTF-8 to convert it
To read
Private Sub BtnPlayer_Click(sender As Object, e As EventArgs) Handles BtnPlayer.Click
If...
|
Click Here to Expand Forum to Full Width
|