|
keep a crystalreportcontrol on ur form.(u have to add components if it is not there in ur toolbox)
set
with that control
.reportfilename----set to ur report
u can change the selection formula etc.etc.
.action=1 ' will show the report
|
|
|
|
|
here 3 question
1.how to use printer object to do the print preview?
2.now i use vba to find out all the picture in powerpoint,can give me a tips,how to use the printer Object to print(or use the ImagN Active's paintDC function)?
3.could anyone hava the ImagN Activex 4.0 Document?
hs
|
|
|
|
|
Can anyone give me an example.
ToolStripcollection.Item.Add(String, System.Drawing.Image, EventHandler)
I don't know how to create EventHandler
................
|
|
|
|
|
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ToolStrip1.Items.Add("test", Nothing, AddressOf ButtonClickedEventHandler)
End Sub
Public Shared Sub ButtonClickedEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show("This is a test.")
End Sub
Mike Lasseter
|
|
|
|
|
Thanks, what about if want to show the message it's text.
i hope i can help me well...
................
|
|
|
|
|
Look at the properties in the e variable. It should be clear from there.
Mike Lasseter
|
|
|
|
|
Hi All
I hope someone can help with this.
I want to be able to load a file into VB.NET 2005 and return the first 11 integers from the file.
I found ReadAllBytes to load the information into memory.
Dim returnValue As Byte()<br />
returnValue = My.Computer.FileSystem.ReadAllBytes(txt_Path.Text & "\" & filename)
What I need to do now is to read the memory to return the value of the first 11 integers into a list box, either as numbers or as hex, so I can check the information in them.
I have seen lots of examples of ReadAllBytes being used but none getting any information from the file.
Or am I wanting to use ReadAllBytes in the wrong way?
Regards
Simon
|
|
|
|
|
Why not use a BinaryReader?
---
b { font-weight: normal; }
|
|
|
|
|
Hi Guffa
Thanks for that - it solved my problem.
Sometime all you need is a pointer to the solution.
Thanks again
Simon
|
|
|
|
|
Hi.
I have Excel file, which I'm trying to load into DataGrid. The problem I have is that in Excel file some columns have TEXT (like: OLYMPIA EXP) or NUMBER (like: 100084) as a value. Let's say columnt Vendor has the above values(OLYMPIA EXP and 100084).
My code doesn't throgh any errors but displays TEXT only missing NUMBER values. I cannot figure this one out.
HELP PLEASE.
Private Sub DB_Connect()<br />
Try<br />
DS = New System.Data.DataSet<br />
MyAdpapter = New System.Data.OleDb.OleDbDataAdapter<br />
MyConnection = New System.Data.OleDb.OleDbConnection( _<br />
"provider=Microsoft.Jet.OLEDB.4.0; " & _<br />
"data source=" & ExcelFilePath & "; " & _<br />
"Extended Properties=Excel 8.0")<br />
<br />
MyCmdSelect = New System.Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", MyConnection)<br />
MyConnection.Open()<br />
MyAdpapter.SelectCommand = MyCmdSelect<br />
MyAdpapter.Fill(DS, "[Sheet1$]")<br />
<br />
' Dim DV As DataView = DS.Tables(0).DefaultView<br />
'If Not sort = "" Then<br />
'DV.Sort = sort & Session("ORDER").ToString()<br />
'End If<br />
DG.DataSource = DS.Tables(0).DefaultView<br />
DG.DataBind()<br />
<br />
btnImport.Visible = False<br />
MyConnection.Close()<br />
<br />
Catch ex As Exception<br />
lblError.Text = ex.ToString()<br />
lblError.Visible = True<br />
End Try<br />
<br />
End Sub
|
|
|
|
|
Try and loop thru the DS to see whether the NUMBER columns are there or not.
Every job is a self portrait of the person who did it.
|
|
|
|
|
I did and it's empty for the numbers. It looks like reader assumes that all values have to be TEXT and cannot process different formats. What I've done is I changed Excel format all cells to TEXT and it still didn't do what I need. The only way to fix this is to format everything to TEXT and when go into number cells click inside and select TEXT format again from a menu. When it puts an explanation mark on the cell and treats it as a TEXT.
There's got to be easier way to go around this issue.
Any ideas?
Thank you,
|
|
|
|
|
Hi I found some code in an article posted on code project "Asynchronous Method Invocation" and was trying to follow the article, and convert it to vb.net, and got stuck at the last section of the article. I was wondering if anyone out there knows what the code below does, and how to convert it to vb.net. Thank you
<br />
private void CallBack(IAsyncResult ar)<br />
{<br />
DataSet ds = m_invokeMe.EndInvoke(ar);<br />
<br />
MethodInvoker updateGrid = delegate<br />
{<br />
m_grid.DataSource = ds.Tables[0];<br />
};<br />
<br />
if (m_grid.InvokeRequired)<br />
m_grid.Invoke(updateGrid);<br />
else<br />
updateGrid();<br />
}<br />
eatwork
|
|
|
|
|
I created a DLL in VB .NET and I want to use it in an excel application, but I cannot create a reference to it. Is there any other way to use it in Excel Application?
Thank you in advance
|
|
|
|
|
You need to put a 'com-wrapper' around the dll to allow it to be used via create object.
Progid - the string you use in the createobject argument (project.class)
Guid - get a new generated one from the IDE of vs.net
Imports System.Runtime.InteropServices
<ProgId("PROJECTNAME.CLASSNAME"), Guid("C4CAB66D-291F-4bd7-9D5C-2E417AB75F49"), ComVisible(True), _
ClassInterface(ClassInterfaceType.AutoDispatch)> _
Public Class CLASSNAME
.
.
.
End Class
|
|
|
|
|
Please help me I am just a fresher and I need to develop an application which will display a form on other system connected in LAN. I can display a message box on other systems in my LAN but unable to display a vb.net form. Please Help
Nakul Sharma
|
|
|
|
|
Hi,
Why do you want to display a vb.net form ? If you want to display some form there, you will have to deploy your application on that machine. Then you can send some message to that application to display some custom message.
Hope this helps !
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
I'm vary interested to know how you're able to display a msgbox on a remote machine, but not a form.
(If possible please explain, or provide a small code snippet)
From my point of view it sounds like you need to develop a Client/Server Application that communicate through a common protocol, and have predefined commands.
|
|
|
|
|
try this
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
txtcomputer.Text = TreeView1.SelectedNode.Text
TextBox1.Text = GetIPAddress(txtcomputer.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
If txtcomputer.Text <> "" And txtmessage.Text <> "" Then
Shell("net send " & txtcomputer.Text & " " & txtmessage.Text)
txtmessage.Text = ""
txtmessage.Focus()
End If
End Sub
Function GetIPAddress(ByVal CompName As String) As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
Try
With System.Net.Dns.GetHostByName(CompName)
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
Catch Excep As Exception
MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
Finally
End Try
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim childEntry As DirectoryEntry
Dim ParentEntry As New DirectoryEntry()
Try
ParentEntry.Path = "WinNT:"
For Each childEntry In ParentEntry.Children
Dim newNode As New TreeNode(childEntry.Name)
Select Case childEntry.SchemaClassName
Case "Domain"
Dim ParentDomain As New TreeNode(childEntry.Name)
TreeView1.Nodes.AddRange(New TreeNode() {ParentDomain})
Dim SubChildEntry As DirectoryEntry
Dim SubParentEntry As New DirectoryEntry()
SubParentEntry.Path = "WinNT://" & childEntry.Name
For Each SubChildEntry In SubParentEntry.Children
Dim newNode1 As New TreeNode(SubChildEntry.Name)
Select Case SubChildEntry.SchemaClassName
Case "Computer"
ParentDomain.Nodes.Add(newNode1)
End Select
Next
End Select
Next
Catch Excep As Exception
MsgBox("Error While Reading Directories")
Finally
ParentEntry = Nothing
End Try
End Sub
Private Sub CmdPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPing.Click
Shell("PING " & TextBox1.Text)
End Sub
Private Sub CmdSendAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSendAll.Click
Shell("net send ALL " & txtmessage.Text)
End Sub
Private Sub CmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
If txtcomputer.Text <> "" And txtmessage.Text <> "" Then
Shell("net send GUI" & txtcomputer.Text & " " & txtmessage.Text)
txtmessage.Text = ""
txtmessage.Focus()
End If
End Sub
|
|
|
|
|
Its pretty obvious why you cant display anything else.
What you are doing is sending a message through the NET SEND commend, your not even using VB to display the message you can do the exact same thing from the command line.
I think my previous post clarifies what you need.
|
|
|
|
|
What you need to look at is Remoting[^]. It's a fairly advanced subject though.
|
|
|
|
|
Running vs2005 ( vb.net )
im trying to write an intranet app and one of the problems im comming up against is displaying data retrieved from a SQl Select query and displaying one record in text boxes much the same style as the old VB6.
I welcome any suggestion and examples please.
current pageload code
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sqlConn As New SqlClient.SqlConnection
Dim sqlCommand As New SqlClient.SqlCommand
Dim SqlReader As SqlClient.SqlDataReader
Try
sqlConn = New SqlClient.SqlConnection(System.Configuration.ConfigurationManager.AppSettings("SQLConnectStr"))
sqlCommand = New SqlClient.SqlCommand("Select * from Bossdata.dbo.clientadmin")
SqlReader = sqlCommand.ExecuteReader
Catch ex As Exception
' Code for error trapping goes here
End Try
End Sub
thanks in advance
I really do need help..... all this computer stuff is way over my head !!
|
|
|
|
|
Hello All,
How can i do in order to change a permission for an user in a registry key.
How to do it programatically.
Thanks in advance...
Regards,
|
|
|
|
|
You'll probably have to do it through WMI Registry Classes
|
|
|
|
|
Hi
I added a datetimepicker to one column of datagrid. i got this by downloading generic datgrid user control from web. after i download that control, i got the 'calendercolumn' also as columntype. it is working. but when i am trying to insert one row thru datagridview to sql table' s datetime column, when i am clicking on the calender cell value itself it is giving me the following error. when i click continue it goes back to the cell and i can select the date the date and proceed. the data(including date) is saving properly. hw can i avoid (what eception to handle) to prevent from this error msg to come?
"to replace this default dialogue please handle the data error event...............
System.InvalidCastException was unhandled by user code
Message="Specified cast is not valid."
Source="GenericDataGridView"
StackTrace:
at GenericDataGridView.GenericDataGridView.CalendarCell.InitializeEditingControl(Int32 rowIndex, Object initialFormattedValue, DataGridViewCellStyle dataGridViewCellStyle) in C:\Documents and Settings\c0001014\Desktop\vs2005Projeler\GenericDataGridView\GenericDataGridView\GenericDataGridView.cs:line 504
at System.Windows.Forms.DataGridView.InitializeEditingControlValue(DataGridViewCellStyle& dataGridViewCellStyle, DataGridViewCell dataGridViewCell)
--- C:\Documents and Settings\c0001014\Desktop\vs2005Projeler\GenericDataGridView\GenericDataGridView\GenericDataGridView.cs
00000000 push ebp
00000001 mov ebp,esp
00000003 push edi
00000004 push esi
00000005 push ebx
00000006 sub esp,38h
00000009 xor eax,eax
0000000b mov dword ptr [ebp-10h],eax
0000000e xor eax,eax
00000010 mov dword ptr [ebp-1Ch],eax
00000013 mov dword ptr [ebp-40h],edx
00000016 mov edi,ecx
00000018 cmp dword ptr ds:[0371289Ch],0
0000001f je 00000026
00000021 call 7932D6AE
00000026 xor edx,edx
00000028 mov dword ptr [ebp-44h],edx
0000002b nop
0000002c push dword ptr [ebp+0Ch]
0000002f push dword ptr [ebp+8]
00000032 mov edx,dword ptr [ebp-40h]
00000035 mov ecx,edi
00000037 call 7A4A1A1C
0000003c nop
0000003d mov ecx,edi
0000003f call 7A45FF60
00000044 mov esi,eax
00000046 mov ecx,esi
00000048 cmp dword ptr [ecx],ecx
0000004a call 7A900AF8
0000004f mov esi,eax
00000051 mov edx,esi
00000053 mov ecx,3714BDCh
00000058 call 79125572
0000005d mov dword ptr [ebp-44h],eax
00000060 mov ebx,dword ptr [ebp-44h]
00000063 mov ecx,edi
00000065 call 7A462DF4
0000006a mov esi,eax
0000006c cmp dword ptr [esi],79105EF0h
00000072 je 00000080
00000074 mov edx,esi
00000076 mov ecx,79105EF0h
0000007b call 791F1CE6
00000080 add esi,4 ------------------------------------error
00000083 sub esp,8
00000086 movq xmm0,mmword ptr [esi]
0000008a movq mmword ptr [esp],xmm0
0000008f mov ecx,ebx
00000091 cmp dword ptr [ecx],ecx
00000093 call 7A8FCDF4
00000098 nop
00000099 nop
0000009a lea esp,[ebp-0Ch]
0000009d pop ebx
0000009e pop esi
0000009f pop edi
000000a0 pop ebp
000000a1 ret 8
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
