|
QuickBooksDev wrote: I am not sure if I am sending the wrong data to the service And all i can say in response, once again, is that you need to do some debugging to find out. There is no detail in your question that can help anyone here to guess what might be going wrong.
|
|
|
|
|
If you don't close it the stream will still contain the data that is in the postarray, with the "current position" at the end of the stream. If you want to read it, you'd need to reset the position. Then again, why would you read from the stream the data that you just wrote to it?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
I don't want to read from what I wrote. The data I wrote in not in the stream but in postArray.
MydataStream.Write(postArray, 0, postArray.Length)
From the MS example Steam = MyWebClient.OpenWrite(... It was my assumption that this was be a response like it is if it were an OpenRead (which does work).
The MSDN sample doesn't show it processing a response.
|
|
|
|
|
|
So what are you saying by just putting in that link? That is the sample we used to do OpenReads which works when there is no postdata.
Do I need to do an OpenRead after the OpenWrite?
If so should the same Steam be used or another? If the same should the stream be closed after the write and before the read?
|
|
|
|
|
I have not tried this myself but that is what I assume. Maybe the HttpWebRequest Class[^] would suit your purpose better.
|
|
|
|
|
Found what I had to do.
I had to get the target server people to trace what they were getting and tell me what was wrong. Eventually found out that I had to add the below ContentType and remove the leading "?" from the postData.
None of the debugging in the .net code was of any help since without the below the postdata was being sent as 1 field and they were not returning anything if the postdata was invalid.
MyWebRequest.ContentType ="application/x-wwww.form-urlencoded"
|
|
|
|
|
hello..
please help me to connect microsoft fingerprint with vb2010..
|
|
|
|
|
You haven't given us ANY information to go on.
Read the documentation on the scanner you have, contact the manufacturer and see if they have a SDK for it. If so, get that and read the documentation on it.
|
|
|
|
|
There's an hardware abstraction layer in Windows. We don't talk to the devices directly, one installs the driver that comes with the device.
How applications interact with it will depend on the driver. Some vendors provide an SDK as a download on their website, if there doesn't appear to be one, mail them.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hello anyone,
I have a Windows form developed in vb.net Framework.The form size is large enough that it can not display completely on the screen and therefore horizontal and vertical scroll bar are there.
Now i want to save this Windows form in pdf format so that i can take print out in future.
Currently i am able to save only screen shot not complete form.
So can any of you please tell me how to do that ?
Thnakyou in advance.
Regards,
Jitendra Singh
|
|
|
|
|
|
Hi,
Forget printing.
Right now I am only concerned to save my Winform in pdf format.
Since i am new to vb,net so if you can provide some code snippet than that would be better for me.
Thankyou in advance.
Regards,
Jitendra Singh
|
|
|
|
|
I already explained the two options that are available to you, in my previous answer: use a PDF printer, or write the code yourself using a third party library (or you could do it the hard way). I can only assume that you do not understand PDF format, so I suggest you go to http://www.adobe.com/devnet/pdf.html[^] and read the documentation.
|
|
|
|
|
|
I need help writing specific codes in visual basic. I am a student taking an online class desperately needing help.
|
|
|
|
|
you're very clear with your question, but I don't understand.
|
|
|
|
|
|
I need help organizing this If-then statement so that it works properly. Im a beginner Thanks!
If RBWoodFloor.Checked = False And RBCarpet.Checked = False Then MessageBox.Show("Choose a floor type!")
If RBWoodFloor.Checked = True Then dbldefaultWoodcost = dblWoodFlooring
If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomName.Items.Add(txtRoomName.Text)
If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomLength.Items.Add(txtRoomLength.Text)
If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomWidth.Items.Add(txtRoomWidth.Text)
If dbldefaultWoodcost = dblWoodFlooring Then Call lbTotalCost.Items.Add(dbltotalcost * dblWoodFlooring)
ElseIf dbldefaultcarpetcost = dblCarpetFlooring Then Call lbTotalCost.Items.Add(dbltotalcost * dblCarpetFlooring)
If RBCarpet.Checked = True Then dbldefaultcarpetcost = dblCarpetFlooring
If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomName.Items.Add(txtRoomName.Text)
If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomLength.Items.Add(txtRoomLength.Text)
If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomWidth.Items.Add(txtRoomWidth.Text)
End
|
|
|
|
|
Well, what's your definition of "properly"? How are we supposed to know how the code is supposed to work?
A word of advice though. Do NOT put your statements in the same line as the IF statement. For clarity, break each if into it's own block:
If RBWoodFloor.Checked = False And RECarpet.Checked = False Then
MessageBox.Show("Choose a floor type!")
End If
If RBWoodFloor.Checked = True Then
dbldefaultWoodcost = dblWoodFlooring
End If
This makes your code easier to read and debug.
You've got the same check in multiple If statements. Block all of the results into a single block.
If dbldefaultWoodCost = dblWoodFlooring Then
lbRoomName.Items.Add(txtRoomName.Text)
lbRoomLength.Items.Add(txtRoomLength.Text)
lbRoomWidth.Items.Add(txtRoomWidth.Text)
lbTotalCost.Items.Add(dbltotalcost & dblWoodFlooring)
End If
Also, you don't need all those "Call" keywords at all.
|
|
|
|
|
I have a form, with a web browser object on it, in which when the document is complete, the event fires and processes the HTML on the form.
If the web page has child forms on it, then I call another automation class, in which I remove the original handler for the web browser object, and switch to the new handler in the child automation class.
Now I'm done processing child page forms, and I call the next parent form
I'm trying to figure out how to reload the original event handler that I unloaded earlier, so I can continue to process more parent pages.
The layout
1. frm_download_data - the form with the web browser object
There's no event handler
2. html_automation_reseller_product_page.vb - Parent Pages, Original Web Browser Document Handler
Public Sub WebBrowser_Page_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
end sub
3. html_automation_reseller_product_child.vb - Child Pages, New Web Browser Document Handler
Protected Sub WebBrowser_PageChild_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
AddHandler g_WB.DocumentCompleted, AddressOf html_automation_reseller_product_page.WebBrowser_Page_DocumentCompleted
g_DDL.Text = g_complete_Url
g_WB.Navigate(g_complete_Url)
end sub
Now I want to return back to 2, and reload the Web Browser Handler.
I wonder if I planned this out poorly, and painted myself into a corner here.
I don't' want to make the Handler on 2 shared.
|
|
|
|
|
Hello,
I have two databases in Access one of Patient and other of client.
now, what I need that from the address of patient I want to find nearest clients details using VB.net.
|
|
|
|
|
This is less a VB.NET question, more SQL. I would suggest you post in the Database forum and show what statement you are using to select the records.
|
|
|
|
|
Hi have looked at previous answers on this blog which dont seem to help me.
I have a datagrid and add columns that are datagridtextboxcolumn . When I click on a cell on datagrid - if the line is too big for the width of cell , it will display on the following line, but when I am not clicked on the cell, the end of the line of text will not be displayed on the next line - and is therefore not displayed.
I derived a new class from datagridtextboxcolumn and attempted to override the paint and painttext methods and this appeared to have no effect - the text is displayed in the column and only 1 line is displayed.
My code is
Here is the derived class: -
( below I have overridden the paint and painttext class in order to see which method has some effect on the display in the datagrid - but there is no effect occuring through this process of overriding.
Imports Microsoft.VisualBasic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Namespace DataGridRichTextBox
Public Class DataGridRichTextBoxColumn
Inherits DataGridTextBoxColumn
Private _source As CurrencyManager
Private _rowNum As Integer
Private _isEditing As Boolean
Public Sub New()
_source = Nothing
_isEditing = False
End Sub 'New
Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByVal alligntoright As Boolean)
End Sub
Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByRef s1 As System.Drawing.Brush, ByRef s2 As System.Drawing.Brush, ByVal alligntoright As Boolean)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal _source As CurrencyManager, ByVal num As Integer)
End Sub
Protected Overloads Overrides Sub SetColumnValueatrow(ByVal _source As CurrencyManager, ByVal num As Integer, ByVal obj As Object)
End Sub
End Class 'DataGridComboBoxColumn
End Namespace
Here is where I add the derived class as an object to the datagrid : -
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Drawing
Public Class DataGridMine
Inherits DataGrid
Public r_counter, column_num, x1 As Integer
Public x13 As Integer
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
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
Friend WithEvents SqlSelectCommand2 As New SqlCommand
Friend WithEvents DataSet51 As New tasks_trial2.DataSet5
Public WithEvents DataGridTableStyle1 As New DataGridTableStyle
Public WithEvents task_name_col, parent_col As New DataGridTextBoxColumn
Public WithEvents description_col As New DataGridRichTextBox.DataGridRichTextBoxColumn
Friend WithEvents SqlDataAdapter3 As New SqlDataAdapter
Friend WithEvents SqlDataAdapter2 As New SqlDataAdapter
Friend WithEvents SqlSelectCommand3 As New SqlCommand
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
CType(Priority_code_table1, System.ComponentModel.ISupportInitialize).BeginInit()
SuspendLayout()
Me.DataMember = "tasks"
Me.DataSource = DataSet51
Me.Location = New Point(8, 230)
Me.Size = New Size(1117, 384)
Me.TabIndex = 0
Me.TableStyles.AddRange(New DataGridTableStyle() {DataGridTableStyle1})
SqlDataAdapter2.SelectCommand = SqlSelectCommand2
SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tasks")})
SqlSelectCommand2.CommandText = ""
SqlSelectCommand2.Connection = SqlConnection10
DataGridTableStyle1.DataGrid = Me
DataGridTableStyle1.AllowSorting = False
column_num = 3
DataGridTableStyle1.HeaderForeColor = SystemColors.ControlText
DataGridTableStyle1.MappingName = "tasks"
DataGridTableStyle1.SelectionBackColor = Color.Aquamarine
DataGridTableStyle1.SelectionForeColor = Color.Black
DataGridTableStyle1.PreferredRowHeight = 10
DataGridTableStyle1.PreferredColumnWidth = 75
description_col.HeaderText = "Description"
description_col.MappingName = "description"
description_col.Width = 260
.....................
' where column is description_col.
Public Sub add_columns(ByRef dgrid1 As DataGridMine, ByVal column As Object)
dgrid1.DataGridTableStyle1.GridColumnStyles.AddRange(New DataGridColumnStyle() {column})
End Sub
|
|
|
|
|
I am converting a VBA function to a VB .NET function. Here the VBA has an Oct() function for splitting a long into an array of x groups with 3 bytes. How can I create my own VB .NET function to do what the VBA Oct() does? Below is an example of how it is used:
'Create one long from this 3 bytes.
nGroup = &H10000 * Asc(Mid(inData, i, 1)) + _
&H100 * MyASC(Mid(inData, i + 1, 1)) + MyASC(Mid (inData, i + 2, 1))
'Oct splits the long To 8 groups with 3 bits
nGroup = Oct(nGroup)
Any help would be great!
Steve Holdorf
modified 28-Nov-14 11:24am.
|
|
|
|