Sounds like you want the tabs to remain in the string?
Is there an RTF property in VB6? I know there is one in VB.net.
This is what you should use when checking for tabs. I think the tab will be represented as a "/t" in the RTF value. Then you can simply find the location and insert it into the string returned from .text.
Give it a shot....
User Profile
Collapse
-
-
Looks like an interesting topic.
I have no knowledge of this but I did find you a link:
http://www.aaroncake.net/electronics/vblpt.htm...Leave a comment:
-
For value between 10 and 20
...Code:IF (myvalue >= 10) OR (myvalue <= 20) THEN 'do work End If
Leave a comment:
-
an encryption routine (courtesy of Andreas J”nsson):
...Code:Public Function RC4(ByVal Expression As String, ByVal Password As String) As String On Error Resume Next Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte If Len(Password) = 0 Then Exit Function End If If Len(Expression) = 0 Then Exit Function EndLeave a comment:
-
-
the only way I am aware of is not related to a file but uses a sql server database (there is a binary datatype).
however, try opening the image in a text editor and you should see that it is already in binary format....Leave a comment:
-
How are your controls currently bound?
DataSource,
Datamember....Leave a comment:
-
your label is not being set to Label47.Visible = False anywhere. But it does set to .Visible = True. Once true, it will never go invisible based on your IF/END IF handling.
Is this what you are referring to when saying it comes up with same result?...Leave a comment:
-
Double-click the textbox in design to get to the TextChanged event.
Put your assignment code in there:
[code=vbnet]
Private Sub txtInitialValue _TextChanged(By Val sender As System.Object, ByVal e As System.EventArg s) Handles txtInitialValue .TextChanged
mlblInitialValu e = (txtInitialValu e.Text)
End Sub
[/code]...Leave a comment:
-
one other advantage with DoEvents,
without it, you have a 'frozen form'. Users wont be able to move or click anything until your loop completes.
Using DoEvents, there is no 'freeze'. this is good if you dont want users to do anything. But, bad if Users have to wait. They will think the app is not responding....Leave a comment:
-
Two choices:
You can REFRESH the form, before the routine:
Form1.Refresh.
And/Or, you can use a "DOEVENTS" keyword.
In the loop where you search for files, add "DoEvents"
This will yield to other processing (like fully loading your form).
You could also combine the above:
Form1.Refresh
Call FileRoutine
...Leave a comment:
-
Check these props of the form:
1. BorderStyle - should be Sizable
2. ControlBox - should be True
Oh, and this is for VB 6.0 solution....Leave a comment:
-
Thanks. I know you can do this manually. I need to do it in code and without using third party software (like Winzip).
Anyone know?...Leave a comment:
-
-
Glad it worked.
Duplicates query (in case anyone wants to know)
Returns duplicate records:
SELECT DuplicatedField
FROM TableName
GROUP BY DuplicatedField
HAVING COUNT(Duplicate dField) > 1...Leave a comment:
-
-
Try the Visual Studio Installer which is free and creates the familiar .MSI files windows installer uses.
http://msdn2.microsoft.com/en-us/vstudio/Aa718352.aspx...Leave a comment:
-
The forms invisible, but it is still in memory.
Try adding the following after your code:
if that doesnt work, the 'not so recommended' solution:Code:unload form1
...Code:End
Leave a comment:
-
Zip in VB for windows xp
Not wanting to use WinZip or any other 3rd party implementation of file compression. It's built right in Windows XP and later.
My question is, how do I utilize it? Create a folder, add contents and rename folder to .zip?
Any ideas? -
in regards to arrays:
in vb, you don't have to know size in advance.
Check this out
example of dynamic adding to an array:
...Code:'declare the array dim myarray(1) As String myarray(0) = "hello" 'expand the array by 1 leaving "hello" in the array redim preserve myarray(ubound(myarray) + 1) 'assign a value to the last index: myarray(ubound(myarray)
Leave a comment:
No activity results to display
Show More
Leave a comment: