|
How can I change the design of report at run time through VB.NET code? is it possible? actuallu I want to create an application where users can set their own report desigh.
|
|
|
|
|
hello
how can I assign null value to date field? date field can be null in DB
|
|
|
|
|
thnx i got it
its dbnull.value
|
|
|
|
|
I'm trying to bind a picture box to my access 2003 Db in vb.net
Here is my code
Dim b As Binding = New Binding("Image", dsComics, "comiclist.ComicCover")<br />
AddHandler b.Format, AddressOf ConvertPicture<br />
Me.picCover.DataBindings.Add(b)<br />
<br />
<br />
<br />
Public Sub ConvertPicture(ByVal Sender As Object, ByVal e As ConvertEventArgs)<br />
Dim b() As Byte = e.Value<br />
Dim ms As MemoryStream = New MemoryStream<br />
ms.Write(b, 0, b.Length)<br />
Dim bmp As Bitmap = New Bitmap(ms)<br />
ms.Close()<br />
e.Value = bmp<br />
<br />
<br />
End Sub
The line in bold is where it bombs, any ideas
BINARY
|
|
|
|
|
'use to save image file
Dim arr() As Byte
FileOpen(1,"FilePath" , OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
'Resize array so that it can accomodate the file
ReDim arr(FileLen("FilePath") - 1)
FileGet(1, arr)
FileClose(1)
'use to read image file
arr = ds.Tables("TableName").Rows(0).Item("ColumnName")
'comapny logo is the name of PictureBox control
CompanyLogo.Image = CompanyLogo.Image.FromStream(New IO.MemoryStream(arr))
|
|
|
|
|
I tried that and it bombed here:
picCover.Image = picCover.Image.FromStream(New IO.MemoryStream(arr))
might it be a problem with access?
|
|
|
|
|
use Dataset to retrieve and save image
I am using following lines .there is no error
arr = ds.Tables("CompanyInfo").Rows(0).Item("CompanyLogo")
CompanyLogo.Image = CompanyLogo.Image.FromStream(New IO.MemoryStream(arr))
there is also an article with demo project(using access) is available in this group. try to search with keyword "Image"
|
|
|
|
|
ok I'll try it thanx
BINARY
|
|
|
|
|
nope nothing, If any one could build a sample to show me where I'm going wrong. I've heard something about header information in the field.
BINARY
|
|
|
|
|
I have a program, it has two thread.
The second thread listen to the network and accept the request, the code is below. And the main thread write messages to the client connected every one minute; how can I write to all the clients connect in the main thread? Do I need some change in the code below?
thanks
Public Sub Listen()
Dim Appreader As System.Configuration.AppSettingsReader
Appreader = New System.Configuration.AppSettingsReader
While blistener
Dim localEndPoint As New IPEndPoint(System.Net.IPAddress.Parse( _
Appreader.GetValue("localAddr", GetType(System.String))), _
Appreader.GetValue("localPort", GetType(System.String)))
Listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Try
Listener.Bind(localEndPoint)
Listener.Listen(10)
While True
Console.WriteLine(Chr(10) + "等待连接中...")
' Program is suspended while waiting for an incoming connection.
Listener.Accept()
Console.Write(Chr(10) + "连接!")
End While
Catch ex As Exception
End Try
End While
|
|
|
|
|
i m trying to stream media files on VB.NET interface using Windows Media Player component.. but its not being played..
well, i hav tried embedding the windows media player component on the WebApplication.....it is appearing on the client side but it is not able to play any files...... and we are not able to even select any controls provided in the player...
we are using Windows 2000 Advanced Server as OS.
actually we dont ve much idea about how streaming takes place on the internet and do we need to add any other codec or component to achieve Media Streaming ???
waiting for replies.
thanks..
|
|
|
|
|
|
If this is your "VB Client" app for you "media server", why are you using a web app? You never said anything about that before... All you need to do is include a link to the video file on the server, in URL form. The client side will take care of the rest when the user clicks on the link.
And yes, I gave you a 1 on this question. I don't live here at CP. I have a life and like to spend alot of time with her. So that means I can, and WILL, disappear from CP whenever I want, leaving your questions unanswered if you direct them at me.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
I have a life and like to spend alot of time with her
Did you mean wife ? Or are the two synonymous ? 
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
She isn't yet!  In May of next year, she will be! ![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
sorry Mr. Dave if i m disturbing ur personal life...
didnt intend to do so.. but as needed help in my project n u ve been very generous before in helping me out... so felt to send a personal query to u...
sorry if that disturbed u..
|
|
|
|
|
this is the error i got while debugging any asp.net application on VB.NET
**************************************************************
Error while trying to run project: Unable to start debugging on the web server. Server side error occured on sending debug HTTP request
Make sure the server is operating corerclty. Verify that there are no syntax errors in Web.config by doing a Debug, Start without Debugging.
***********************************************************
i tried the start without debugging option but its working properly there... cant get wat the exact prob is
hope someone can help me
badly need the help...
|
|
|
|
|
Search results[^] for "Unable to start debugging on the web server" on MSDN.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am new to vb.net and need some help, I am trying to write a program for multiplication. I need to use the next method from an object of type random to produce two positive one-digit integers, that should display a question like "How much is 6 times 7?" and type the answer in a textbox.
I want to check the answer and display a message in a label of either "correct" then ask another math question, or "Try again" in the same label and try the same math question again.
I would appreciate any help with this, I know this may not seem like a very tough task, but being new to this makes it difficult for me.
thanks, John
|
|
|
|
|
Hi; I hope you can see what I did here I left in the Windows Form Designer generated code so that you can copy/past and try.
Imports System
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
Private firstNum As Integer
Private secondNum As Integer
Private rand As New Random ' Random number generator
Private Const msg1 As String = "How much is " ' Strings for building question
Private Const msg2 As String = " times "
Private Const msg3 As String = " Correct"
Private Const msg4 As String = " Try Again"
#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 lblQuestion As System.Windows.Forms.Label
Friend WithEvents tbAnswer As System.Windows.Forms.TextBox
Friend WithEvents cbCheckAnswer As System.Windows.Forms.Button
Friend WithEvents cbNewQuestion As System.Windows.Forms.Button
Friend WithEvents cbExit As System.Windows.Forms.Button
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.lblQuestion = New System.Windows.Forms.Label
Me.tbAnswer = New System.Windows.Forms.TextBox
Me.cbCheckAnswer = New System.Windows.Forms.Button
Me.cbNewQuestion = New System.Windows.Forms.Button
Me.cbExit = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'lblQuestion
'
Me.lblQuestion.Location = New System.Drawing.Point(16, 40)
Me.lblQuestion.Name = "lblQuestion"
Me.lblQuestion.Size = New System.Drawing.Size(248, 23)
Me.lblQuestion.TabIndex = 0
Me.lblQuestion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'tbAnswer
'
Me.tbAnswer.Location = New System.Drawing.Point(280, 40)
Me.tbAnswer.Name = "tbAnswer"
Me.tbAnswer.Size = New System.Drawing.Size(40, 20)
Me.tbAnswer.TabIndex = 1
Me.tbAnswer.Text = ""
Me.tbAnswer.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'cbCheckAnswer
'
Me.cbCheckAnswer.Location = New System.Drawing.Point(192, 80)
Me.cbCheckAnswer.Name = "cbCheckAnswer"
Me.cbCheckAnswer.Size = New System.Drawing.Size(88, 23)
Me.cbCheckAnswer.TabIndex = 2
Me.cbCheckAnswer.Text = "Check Answer"
'
'cbNewQuestion
'
Me.cbNewQuestion.Location = New System.Drawing.Point(72, 80)
Me.cbNewQuestion.Name = "cbNewQuestion"
Me.cbNewQuestion.Size = New System.Drawing.Size(80, 23)
Me.cbNewQuestion.TabIndex = 3
Me.cbNewQuestion.Text = "New Question"
'
'cbExit
'
Me.cbExit.Location = New System.Drawing.Point(128, 120)
Me.cbExit.Name = "cbExit"
Me.cbExit.TabIndex = 4
Me.cbExit.Text = "Exit"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(360, 165)
Me.Controls.Add(Me.cbExit)
Me.Controls.Add(Me.cbNewQuestion)
Me.Controls.Add(Me.cbCheckAnswer)
Me.Controls.Add(Me.tbAnswer)
Me.Controls.Add(Me.lblQuestion)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Set up the initial question
firstNum = rand.Next(10)
secondNum = rand.Next(10)
lblQuestion.Text = msg1 & firstNum & msg2 & secondNum & _
" ?"
End Sub
Private Sub cbCheckAnswer_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cbCheckAnswer.Click
' If no data in the text box just return
If tbAnswer.Text Is Nothing Then Return
' If not a numeric value then return
If Not IsNumeric(tbAnswer.Text) Then
lblQuestion.Text = msg1 & firstNum & msg2 & secondNum & _
" ?" & msg4
Return
End If
If CInt(tbAnswer.Text.ToString) = (firstNum * secondNum) Then
' The answer was correct
lblQuestion.Text = msg1 & firstNum & msg2 & secondNum & _
" ?" & msg3
Else
' The answer was wrong
lblQuestion.Text = msg1 & firstNum & msg2 & secondNum & _
" ?" & msg4
End If
End Sub
Private Sub cbNewQuestion_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cbNewQuestion.Click
' Get a new question
firstNum = rand.Next(10)
secondNum = rand.Next(10)
lblQuestion.Text = msg1 & firstNum & msg2 & secondNum & _
" ?"
tbAnswer.Clear()
End Sub
Private Sub cbExit_Click(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles cbExit.Click
Application.Exit()
End Sub
End Class
|
|
|
|
|
|
Despite the fact that someone has done your homework for you, you should really look over the code, work out how it works, and in future, try to do your own work and post specific questions when you get stuck.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hi, I'm trying to put a user login/password on a form, and I've been searching for sample code to add this feature. I need this for a project in a week. Can anyone help?
rives
|
|
|
|
|
Here is something to get you started.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconthecookieauthenticationprovider.asp
My Blog
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
