Visual Basic Discussion Boards

Re: Breaking up strings

Guffa4-Jul-07 5:05

Guffa

4-Jul-07 5:05

That's a good point. I didn't think of the special case of single letter words.

---
single minded; short sighted; long gone;

Re: Breaking up strings

Bassam Saoud1-Jul-07 7:25

Bassam Saoud

1-Jul-07 7:25

Another way would be to :
-Create a character Array of your text using ToCharArray()
-Test each character , if Caps add space before the character and add it to the resulting string otherwise add the character to the resulting string:

<code>
    Private Function TransFormText(ByVal oText As String) As String
        Dim oResult As String = ""
        Dim oArray() As Char = oText.ToCharArray()
        For Each oItem As Char In oArray
            If oItem. = oItem Then
                oResult = oResult & " " & oItem
            Else
                oResult = oResult & oItem
            End If
        Next
        Return Trim(oResult)
    End Function
</code>

Re: Breaking up strings

Guffa1-Jul-07 8:10

Guffa

1-Jul-07 8:10

You should however mention that the method scales very badly, so it's only suitable for very short strings.

For a string with 20 characters, it creates 40 string objects to produce the result. Also, for every additional character the memory usage doubles.

---
single minded; short sighted; long gone;

Re: Breaking up strings

Bassam Saoud1-Jul-07 8:59

Bassam Saoud

1-Jul-07 8:59

Guffa wrote:
You should however mention that the method scales very badly, so it's only suitable for very short strings.

For a string with 20 characters, it creates 40 string objects to produce the result. Also, for every additional character the memory usage doubles.

sure, But its a good starter.Obviously the poster is a beginner and in such cases its better to provide a solution that is easy to understand and that build up logic...

Re: Breaking up strings

Guffa4-Jul-07 5:21

Guffa

4-Jul-07 5:21

Well, at least it increases the traffic to the site when he comes back wondering why the code is getting so f... ehm... extremely slow. Wink | ;)

---
single minded; short sighted; long gone;

Re: Breaking up strings

Bassam Saoud1-Jul-07 7:31

Bassam Saoud

1-Jul-07 7:31

There was an error in my previous post:

<code>
    Private Function TransFormText(ByVal oText As String) As String
        Dim oResult As String = ""
        Dim oArray() As Char = oText.ToCharArray()
        For Each oItem As Char In oArray
            If Char.ToUpper(oItem) = oItem Then
                oResult = oResult & " " & oItem
            Else
                oResult = oResult & oItem
            End If
        Next
        Return Trim(oResult)
    End Function
</code>

Writing a text file....

Psycho-^*Coder*-Extreme1-Jul-07 4:01

Psycho-^*Coder*-Extreme

1-Jul-07 4:01

I have a couple questions about writing a text file (Most of it know as I've been writing files in this application for quite some time now) but the real question I have is this: I am changing my error log text file to a comma delimited file. The first line with be my headers (Error, Message, Stack Trace, Date/Time) how do I go about only writing this line a single time, then go about adding any errors that may happen below it

"Well yes, it is an Integer, but it's a metrosexual Integer. For all we know, under all that hair gel it could be a Boolean."
Tom Welch

Re: Writing a text file....

Bassam Saoud1-Jul-07 6:10

Bassam Saoud

1-Jul-07 6:10

Write the headers when you create the file :

If Not File exists Then
   ' Create Log File
   'Write Header
Else
   ' Write Log Row
End If

SQL Commands vs VB.net commands

alexrad1-Jul-07 3:25

alexrad

1-Jul-07 3:25

Hi, to all.
Mine question is : can i use SQL commands about selecting, sorting and filtering data in VB.Net on DataTables...and which of them can i use
Especially CASE...WHEN...ELSE..END

Re: SQL Commands vs VB.net commands

Polymorpher1-Jul-07 9:01

Polymorpher

1-Jul-07 9:01

Not reall sure what you are wanting to know...You can use ADO.NET to select table from a database using SQL commands if that is what you are talking about?

Apparently it's not OK to start a bonfire of Microsoft products in the aisles of CompUSA even though the Linuxrulz web site says so

Re: SQL Commands vs VB.net commands

Zia Ul Haq Soofi1-Jul-07 9:13

Zia Ul Haq Soofi

1-Jul-07 9:13

You can not use select insert update statements on datatables, rather you can filter your datatable with DataTable.Select(filterexpression as String) method, where filterexpression is like Dept='Administration'.

These filter expression is just like Where clause of Select statements.

Be a part of solution, rather then be a part of problem

Re: SQL Commands vs VB.net commands

alexrad1-Jul-07 9:25

alexrad

1-Jul-07 9:25

Yes, i was trying to use case.. then .. else .. end statment like in sql in where clause, but i did not make it. Just filtering.
I have some information that there is driver, i guess,thru it is possible to use most of sql statments in vb on datatables. Thank you anyway

How can i open other Form from.........

ankur01011-Jul-07 2:11

ankur0101

1-Jul-07 2:11

i want to open form2 from menu strip button
Menustrip buttons name is "Preference"

Other button is Exit by which i want to close the application
i want to know its coding plz help me Frown | :(

(

Re: How can i open other Form from.........

Tamimi - Code1-Jul-07 2:30

Tamimi - Code

1-Jul-07 2:30

to open new form:
dim frmTemp as new Form2
frmTemp.show

to close the application:
Application.Exit()

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: How can i open other Form from.........

ankur01011-Jul-07 2:36

ankur0101

1-Jul-07 2:36

thanx

now i want to make FTP browser
there is no such a option in toolbox
plz help me Sigh | :sigh:

Re: How can i open other Form from.........

Tamimi - Code1-Jul-07 2:57

Tamimi - Code

1-Jul-07 2:57

http://www.example-code.com/vbdotnet/ftp.asp

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: How can i open other Form from.........

ankur01011-Jul-07 20:11

ankur0101

1-Jul-07 20:11

than u very much Smile | :)

Re: How can i open other Form from.........

ankur01011-Jul-07 20:12

ankur0101

1-Jul-07 20:12

but where i have to copy & paste these codes??
i had already created design Frown | :(

(

Set Glass around UserControls!

softwarejaeger1-Jul-07 1:43

softwarejaeger

1-Jul-07 1:43

Hello,

i've found a code on this page :http://weblogs.asp.net/kennykerr/archive/2006/08/10/Windows-Vista-for-Developers-_1320_-Part-3-_1320_-The-Desktop-Window-Manager.aspx[^] there's described how to make glass effect, without the known problems with the black controls in the window. But the problem is, the code is written in VC++ and i can't VC++ =(.

How can i do the same in VB.NET?? I've tested a lot, but it doesn't work easyly.

Here's my Code:

Public Class Form1<br />
    <Runtime.InteropServices.DllImport("dwmapi.dll", CharSet:=CharSet.Auto)> _<br />
    Public Shared Sub DwmExtendFrameIntoClientArea(ByVal hWnd As System.IntPtr, ByRef pMargins As Margins)<br />
    End Sub<br />
<br />
    <Runtime.InteropServices.DllImport("dwmapi.dll", CharSet:=CharSet.Auto)> _<br />
    Public Shared Sub DwmIsCompositionEnabled(ByRef IsIt As Boolean)<br />
    End Sub<br />
    <System.Runtime.InteropServices.DllImport("user32.dll")> _<br />
    Private Shared Function SetLayeredWindowAttributes(ByVal hWnd As IntPtr, ByVal crKey As Int32, ByVal bAlpha As Byte, ByVal dwFlags As Int32) As Boolean<br />
    End Function<br />
<br />
    Const COLORREF As Int32 = -65281<br />
    Const LWA_COLORKEY As Int32 = 1<br />
<br />
    Public Structure Margins<br />
        Public Left As Integer<br />
        Public Right As Integer<br />
        Public Top As Integer<br />
        Public Bottom As Integer<br />
    End Structure<br />
    Private inset As Margins = New Margins<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Me.BackColor = Color.FromArgb(COLORREF)<br />
        'Me.TransparencyKey = Color.FromArgb(COLORREF)<br />
<br />
        SetLayeredWindowAttributes(Me.Handle, COLORREF, 80, LWA_COLORKEY)<br />
        Dim marg As New Margins<br />
        marg.Bottom = -1<br />
        marg.Left = -1<br />
        marg.Top = -1<br />
        marg.Right = -1<br />
<br />
        DwmExtendFrameIntoClientArea(Me.Handle, marg)<br />
<br />
    End Sub<br />
End Class

Another code, which do the same and is written in C# i've found on this site: http://weblogs.asp.net/kennykerr/archive/2007/01/23/controls-and-the-desktop-window-manager.aspx[^]

Has somebody any ideas how to do this??? Confused | :confused:

Thanks for your help =)

Re: Set Glass around UserControls!

Paul Conrad13-Jul-07 13:20

Paul Conrad

13-Jul-07 13:20

Are you still having trouble with this?

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

CREATE NEW COMPONENT

cheerup_woe1-Jul-07 0:00

cheerup_woe

1-Jul-07 0:00

how do i can create my own new component in toolbox n how to make other project in the same solution explorer can recognise my new component

database question??

magedhv30-Jun-07 23:35

magedhv

30-Jun-07 23:35

i have 2 table one called store and one called addcard

i have already made a form that add the data to the ("addcard")table
but in the same time i want the computer to open table ("store")and find in row vodafone the field ("v10")and get the value of this field in a string then i want to update this field by adding a number + the number inn this filed and update it in store table how can i do this

iam using vb2205
database type :access
ado.net
urgent plzzzzz
thanks

Re: database question??

magedhv30-Jun-07 23:36

magedhv

30-Jun-07 23:36

this is what i have reach in vb6

If rs5.State = 1 Then rs5.Close<br />
<br />
rs5.Open "store", cn, adOpenDynamic, adLockPessimistic<br />
rs5.Find "ceasr ='" + Combo2.Text + " '"<br />
x = rs5!cost<br />
rs5!cost = x + Val(Text6.Text)<br />
rs5.Update

how can i apply this code in vb2005

Andy20230-Jun-07 22:54

Andy202

30-Jun-07 22:54

Sorry if its a simple question, but I usually use MFC C++ VS 2005 for coding.

I just want the dialog box to behave as follows when the PASSWOD is entered:-

From either the user hitting Tab or Return (at the end of PASSWORD entering); process the USERNAME & PASSWORD; i.e. no need to click on the OK button.

Currently on hitting Tab or Enter the focus is set to the OK button.

The OK button is enabled when the PASSOWRD and USERNAME is entered!

Many thanks,

Andy.

Re: Login Dialog Form

The ANZAC1-Jul-07 2:56

The ANZAC

1-Jul-07 2:56

1.Set the forms PreviewKeyPress Property to True.
2.Create an event for the the password textbox for on keypress.
3.In the aforementioned event place the following:

if e.keychar = cchar(chrw(keys.enter)) or e.keychar = cchar(chrw(keys.tab)) then<br />
'standard processing actions from OK button<br />
end if

Posted by The ANZAC : "WWBD, What Would Buffy Do?" : "I don't know man, she's stronger than me"

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.