|
Sound like a job for a background thread. After you launch the processing job on its own thread, you can display a modal window with your message. This will keep your UI thread unblocked so it can respond and repaint itself.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for the reply.
Can anyone please give me some sample code or point to some articles which explains how to do.
Thanks,
Prasad.
|
|
|
|
|
|
Hi everyone,
I converted a project made with VB6 to VB.NET. I am now getting an error in the function header that says that I cannot pass a structure as an optional parameters. Does someone knows how I can fix it?
Here is my function:
Public Function AddInDBitems([...], Optional ByRef fColor As System.Drawing.Color = -1, [...]) As Object
Thanks in advance,
Charles
|
|
|
|
|
I think the error says it all. In the .NET Framework, Drawing.Color is a structure, not a number. Try rewriting your code to accept an Integer instead. You can convert any Color to a 32-bit value by just calling it .ToArgb() method:
Dim value As Integer = myColor.ToArgb()
AddInDBItems(..., value, ...) As Object
.
.
.
Public Function AddInDBitems([...], Optional ByRef fColor As Integer = -1, [...]) As Object
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
You're completely right, why leave it in a structure when I can simply translate it into a integer. Simpler, thanks.
Charles
|
|
|
|
|
I have to edit text in TreeView control. While editing I have to restrict the maximum length of the string.
Appreciate any help in this regard.
- ashish
|
|
|
|
|
http://www.devx.com/vb2themax/Tip/18446
|
|
|
|
|
I have to edit text in TreeView control. While editing I have to restrict the maximum length of the string.
Appreciate any help in this regard.
- ashish
|
|
|
|
|
I am trying to build a file finder using vb.net. I'm new to it, so bare with me please.
All i need is sample code (that works) just to get an idea.
I've been having the worst of times looking web site after web site, and so far none of the codes that i've downloaded works!!!!! either they are not finish or they are full of mistakes.
I really apreciate it, if someone could be kind enough to show me some usefull links or just help.
|
|
|
|
|
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(16, 56)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TextBox1.Size = New System.Drawing.Size(568, 192)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "TextBox1"
Me.TextBox1.WordWrap = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(24, 16)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Search"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(600, 266)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Clear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim result As ArrayList = FindFiles.FindFiles("c:\", "*.jpg")
For i = 1 To result.Count - 1
TextBox1.AppendText(result.Item(i).ToString & vbCrLf)
Next
End Sub
End Class
Public Class FindFiles
Public Shared Function FindFiles(ByVal basePath As String, ByVal searchPattern As String) As ArrayList
Dim result As New ArrayList
For Each dir As String In Directory.GetDirectories(basePath)
result.AddRange(FindFiles(dir, searchPattern))
Next
For Each file As String In Directory.GetFiles(basePath, searchPattern)
result.Add(file)
Next
Return result
End Function
End Class
|
|
|
|
|
Thanks for your help. But i'm getting this error now:
System.Unauthorized.Exception in mscorlib.dll. Access to the path "c:\systemVolumeInformation is denied.
|
|
|
|
|
Hi All
Can i compile VB.NET code at runtime? If yes how?
And how can i use it in my code?
Thanks & Regards
Sumit Domyan
|
|
|
|
|
Yes, it's possible to do. No, it's not easy to understand.
Only you can answer the third question. It all depends on what your doing.
You'll come up with lots of artciles here on CP just by searching for "Codedom".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
Hi
Can you please answer my one more question? I am passing parameters through soap, but i am not getting the exact result back.
Dim env As SoapEnvelope
Dim epr As EndpointReference
Dim client As MyHttpClient
Dim rs As SoapEnvelope
Dim bodyResponse As String
Dim web_namespace As String
Dim web_uri As String
Dim web_method As String
Dim action As String
Dim inner_xml As String
web_method = MethodTextBox.Text.Trim
web_uri = WebServiceURLTextBox.Text.Trim
web_namespace = NamespaceTextBox.Text.Trim
If web_namespace.EndsWith("/") = False Then
web_namespace += "/"
End If
action = web_namespace & web_method
inner_xml = "<" & web_method & " xmlns=""" & web_namespace & """" & " ><first_name>Test</first_name><last_name>User</last_name></HelloWorld>"
env = New SoapEnvelope
env.Context.Addressing.Action = New Action(action)
env.CreateBody()
env.Body.InnerXml = String.Format(inner_xml)
epr = New EndpointReference(New Uri(web_uri))
client = New MyHttpClient(epr)
client.WebAction = action
rs = client.TestWebRequest(env)
bodyResponse = rs.Body.OuterXml
TestReport.Text = bodyResponse
End Sub
End Class
Option Explicit On
Option Strict On
Imports System.Xml
Imports Microsoft.Web.Services2
Imports Microsoft.Web.Services2.Addressing
Imports Microsoft.Web.Services2.Messaging
Imports System.Web
Public Class MyHttpClient
Inherits SoapClient
Friend intWebAction As String
WriteOnly Property WebAction() As String
Set(ByVal Value As String)
intWebAction = Value
End Set
End Property
Public Sub New(ByVal dest As EndpointReference)
MyBase.New(dest)
End Sub
'"http://tempuri.com/TestWebService/MyService/HelloWorld")> _
<SoapMethod("http://tempuri.com/TestWebService/MyService/HelloWorld")> _
Public Function TestWebRequest(ByVal envelope As SoapEnvelope) As SoapEnvelope
Dim response As SoapEnvelope
Dim msg As String
response = MyBase.SendRequestResponse("HelloWorld", envelope)
msg = response.Body.OuterXml
TestWebRequest = response
End Function
Protected Overrides Sub FilterMessage(ByVal envelope As Microsoft.Web.Services2.SoapEnvelope)
MyBase.FilterMessage(envelope)
End Sub
End Class
WebMethod is:
<WebMethod()> _
Public Function HelloWorld(ByVal first_name As String, ByVal last_name As String) As String
Return "Hello " + first_name + " " + last_name + "!"
End Function
Thanks a lot
Sumit
Sumit Domyan
|
|
|
|
|
Hi everone,
I am using VBA for Visio and I want to store an image into an XML element. So, basically I read the image into a byte array like this:
Dim FileNumber As Integer
Dim imageBase64() as Byte
FileNumber = FreeFile()
Open "C:\hello.gif" For Binary As FileNumber
ReDim imageBase64(LOF(FileNumber))
Get FileNumber, , imageBase64
Close FileNumber
This reads the image data correctly into my byte array. But now wheever I attempt to put this into an XML element like:
element.nodeTypedValue = imageBase64
This method does something to the image data and adds something else instead. What I want is to have the byte array as is.
Any help would be greatly appreciated.
Thanks!
Pankaj
/**
I'm the one who's gonna have to die
When it's time for me to die
So let me live my life
The way I want to
- Jimi Hendrix
*/
|
|
|
|
|
That's because you haven't converted the image to an actual Base64 string. All you've done is read the binary data and attempted to write it to a text file. This, of course, writes all kinds of special characters to the file which are no legal in an XML document.
You have to either find a VBA library to convert binary data into a Base64 string and back, or encapsulate the binary data in a !CDATA XML element.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Does Visual Basic.NET or VC.NET provides some native support/APIs for programming the WLAN card
Can any one help me?? Urgent
|
|
|
|
|
The .NET Framework doesn't include ANY native support for working with ANY hardware. In the NT Kernel environment, all hardware is abstracted from the application. This means that you have to rely on either making your own DeviceIOCTL calls to the devices driver or using an SDK for the hardware.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm trying to catch messages sent to a window in VB6
This is how it's done in .NET but how would i do it in VB6
Protected Overrides Sub WndProc(ByRef m As Windows.Forms.Message)
If Int(m.Msg) = 301 Then
Dim res As Integer
res = meD.putDevice(93, "") 'just a function call
Else
MyBase.WndProc (m)
End If
End Sub
Please help!
regards/Jocke
|
|
|
|
|
It's nowhere near as easy to do in VB6. You have to replace the existing WindowProc with your own. Check out this[^] example for the code.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I've just installed 2005 Beta, and it is quite a bit different to 2003 that I am currently using. I'm writing VB code. When I used by 2003 app, 2005 upgraded it and I then found I have a lot of errors.
I need to finish this application and I would like some advice as to whether I should stick with 2003 or move on?
|
|
|
|
|
if you're finishing up your application and geting ready to release it into the wild before the v2005 release date, then i'd say stick with 2003 for now. otherwise i believe you're going to have to sign up for the go-live license.
-jim
|
|
|
|
|
I'm supposed to do a project using only XML, Microsoft Excel and Vb.Net. My problem here is that I'm supposed to plot a graph out with values extracted from an Excel file. Are there any ways to plot the graph without considering the size restrictions in Vb.Net (the size of the graph might be big), and how do we extract the values from the Excel file?
|
|
|
|