|
the condfld must be in Group Fileds and cond string.
Sum(Field.value,Field.date,"2011/03/02")
|
|
|
|
|
Hello, would someone be so kind as to send me a small application (preferably using the nwind.mdb database).
All I would like it to do is:
1. Have 2 text boxes
2. If you type in the customer id in box 1 and press enter it will update the customer name box with corresponding entry in the database.
I have avoided asking a question as I really struggle to understand the answers I am given and would really learn more from working backwards from a working piece of code.
Any help would be greatly appreciated.
Thanks in advance.
John Cassell
-- modified at 9:50 Thursday 20th July, 2006
|
|
|
|
|
Firstly, it is not a good idea to post your e-mail address. Suggest you modify your post accordingly.
Is this a question on how to do database using Microsoft Access Application as supplied as part of MS Office, or to create a standalone Visual Basic Application.
modified 1-Aug-19 21:02pm.
|
|
|
|
|
Hi,
I want to parse XML file with MSXML4.0 in VISUAL BASIC 6.0(not vb.net)but problem with my code is it's showing only one error at a time..but i need to show all the parsing error,
my code is as below:
-----
Dim schemaCache As MSXML2.XMLSchemaCache40
Set schemaCache = New MSXML2.XMLSchemaCache40
schemaCache.Add "", "MySchema.xsd"
Dim doc As MSXML2.DOMDocument40
Set doc = New MSXML2.DOMDocument40
Set doc.schemas = schemaCache
doc.async = False
If Not doc.Load("MyXML.xml") Then
MsgBox "Error loading XML document: " & doc.parseError.reason
Else
MsgBox "File parsed successfully."
End If
------------
please help me its urgent,thanks in advance
Sushant Mathur
Bangalore,
INDIA.
http://n.domaindlx.com/fun2ssh/HOME.htm
|
|
|
|
|
 Anybody knows how to list folders in dropdown menu. I wanna list all the main folders in one dropdwon menu. When user select a particular folder from the dropdown menu, in the second dropdown menu the sub folders of the main folder should automatically populate in the dropdown. Can anyone help me out in the problem.
123456
|
|
|
|
|
Multiple dropdowns, each picking a sub directory of a parent? That's a really bad interface design! A better option would be to use a TreeView and populate it dynamically.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello there
I am building a desktop application same like CodeProject forum for one workflow application. What I want is to display the posted messages like Codeproject messages come. like this
(+/-) Main Message
reply Message 1
reply Message 2
reply Message for Message 2 etc
means a tree view control but rotated horizontally.
Any Help or Ideas would be highly Appreciated.
Best Regards
Rizwan Bashir
|
|
|
|
|
There was some software Developed specifically for the DevDays 2004 Smart Client track called IssueVision that has a control that works similar to what you want to do. (All the source code is included.)
Take a look and see if this is somthing you can use.
It can be found in the source for IssueVision located here:
http://www.windowsforms.net/Applications/application.aspx?PageID=40&tabindex=9[^]
progload
|
|
|
|
|
How can i call or run vbs within vb.net. Like call a Function in vb.net. In vb.net you can add new item vbs file, but i cannot find any information to call a vbs file.
what i need is:
exp: function "vbs file"
Function addUserToGroup(ByVal member As String, ByVal group As String)
dim test as "vbs script file"
End Function
and not:
process.start ("c:\vbs file")
Thks,
rommel
|
|
|
|
|
You can't call a function in a .VBS file directly. You CAN, however, expose a class and its methods as a COM object. This will allow you to instantiate and use the script code as an object in your VB.NET app. It's not very pretty and its performance sucks, but it works.
You can find more information on Script Components here[^] on MSDN.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i want to print items in seperate textboxes on a form on one paper. can someone help me with a code for that.
-- modified at 10:08 Monday 19th June, 2006
|
|
|
|
|
Hi after lot of efforts when I succeeded to watermark an image with company logo. But I get astonished to see the images size after watermarking.
Original image size was 50 kb
after watermarkig it becomes almost 552 Kb
ie 10 times in size. How can i reduce this size.
Note: Images format=JPG
Thanks in advance
Lets work it Out.........!
|
|
|
|
|
Without seeing your code, it's impossible to say what the problem is. From your description, it appears that you're loading a .JPG image, making a change to it, but what your actually saving or sending down whatever code pipe your using is a uncompressed .BMP image.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
<br />
Public Sub waterMark()<br />
Dim imageURL As String<br />
<br />
'Set the thumbnail width in px – the width will be calculated later to keep the original ratio.<br />
Dim imageHeight As Integer<br />
Dim imageWidth As Integer<br />
<br />
Dim logoX, logoY As Integer<br />
<br />
'Original image<br />
imageURL = Server.MapPath("watermark_images/originalImg.jpg")<br />
Dim fullSizeImg As System.Drawing.Image<br />
fullSizeImg = System.Drawing.Image.FromFile(imageURL)<br />
<br />
'For Logo with which we watermark image<br />
<br />
Dim logoImg As System.Drawing.Image<br />
imageURL = Server.MapPath("watermark_images/logo.png")<br />
logoImg = System.Drawing.Image.FromFile(imageURL)<br />
<br />
imageHeight = fullSizeImg.Height<br />
imageWidth = fullSizeImg.Width<br />
<br />
<br />
Response.ContentType = "image/jpeg"<br />
<br />
If imageHeight > 0 And imageWidth > 0 Then<br />
Dim dummyCallBack As System.Drawing.Image.GetThumbnailImageAbort<br />
dummyCallBack = New _<br />
System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)<br />
<br />
<br />
'Creating the Thumbnail image of same size<br />
thumbNailImg = fullSizeImg.GetThumbnailImage(imageWidth, imageHeight, _<br />
dummyCallBack, IntPtr.Zero)<br />
<br />
<br />
<br />
'Declaring and initializing the Graphics image<br />
'With this image we wil draw image and watermark it<br />
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(thumbNailImg)<br />
<br />
<br />
'Sets the interpolation mode for a high quality image<br />
<br />
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic<br />
<br />
'Drawing the original image<br />
g.DrawImage(fullSizeImg, 0, 0, imageWidth, imageHeight)<br />
'Drawing the logo on it<br />
<br />
<br />
logoX = imageWidth * 0.02<br />
logoY = imageHeight * 0.92<br />
imageHeight = logoImg.Height<br />
imageWidth = logoImg.Width<br />
<br />
g.DrawImage(logoImg, logoX, logoY, imageWidth, imageHeight)<br />
<br />
<br />
g.SmoothingMode = SmoothingMode.HighQuality<br />
<br />
thumbNailImg.Save(Server.MapPath("watermark_images/watermarkedImg.jpg"))<br />
<br />
Else<br />
<br />
End If<br />
<br />
<br />
Please let me know what to do with it, so that I can get watermarked image of relatively small size.
Lets work it Out.........!
|
|
|
|
|
Hey! Sorry, but I forgot about this thread.
Here's a function I dug up out of my archives and heavily modified for your use:
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
.
.
.
'
' Create and return a Watermarked image.
'
Public Function CreateWatermarkedImage(
ByVal SourceFilepath As String, _
ByVal WatermarkFilepath As String, _
ByVal WatermarkScale As Single) _
As Bitmap
' Check to see if our parameters are valid!
If File.Exists(SourceFilepath) AndAlso File.Exists(WatermarkFilepath) _
AndAlso WatermarkScale > 0 AndAlso WatermarkScale < 100 Then
' Load the source image into a target bitmap to build the watermarked image in...
Dim targetImage As New Bitmap(SourceFilepath)
' Now load the watermark image...
Dim wmImage As New Bitmap(WatermarkFilepath)
' Scale the Watermark image...
Dim gtia As New Image.GetThumbnailImageAbort(AddressOf GetThumbnailImageAbortHandler)
Dim thumbImage As Bitmap = wmImage.GetThumbnailImage( _
wmImage.Width * WatermarkScale, _
wmImage.Height * WatermarkScale, _
gtia, IntPtr.Zero)
' Draw the thumbnailed watermark image over the target image...
Dim g As Graphics = Graphics.FromImage(targetImage)
g.CompositingMode = Drawing2D.CompositingMode.SourceOver
g.DrawImage( _
thumbImage, _
targetImage.Width - thumbImage.Width, _
targetImage.Height - thumbImage.Height, _
thumbImage.Width, _
thumbImage.Height)
g.Dispose()
Return targetImage
End If
Return Nothing
End Function
Private Function GetThumbnailImageAbortHandler() As Boolean
End Function
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
 Hello friends,
plz guide me to develope a project in which, i want to send sms/e-mail.
plz send me related information.
Thanks in Advanced!!!
Rahul here
|
|
|
|
|
Hi
Im trying to print my datagrids and ive got 2 problems with them:
1) When i print them unless i print them 1 at a time they overwrite each other and therefore the only page that gets printed is the last 1 (By 1 at a time i mean say if u click a button to print the next page)
2) When they print if the data on the grid is too big for the page then it cuts off any data that doesnt fit and the data is lost. How do i go about either resizing them to print smaller than they are or how can i get it to print any data thats too big on another page?
Thx
"You don't have to be crazy to do this but it sure does help!"
|
|
|
|
|
There are a couple of articles on this site describing ways of printing a data grid to span multiple pages (including one written by myself) - I'd suggest you look at those.
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
hello
i want to bind a pirticular row of my table with the textboxes which i have in my form. i am getting that row from the datagrid and that is a current row which is clicked by the user. i have saved that row refernce in a seprate datarow object. now how i will select that pirticular row from my table and display the values of each column in realted textbox
Dim xCM As CurrencyManager<br />
Dim drw As DataRowView<br />
Dim row As DataRow<br />
<br />
xCM = CType(DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember), CurrencyManager) '= <br />
drw = CType(xCM.Current, DataRowView)<br />
row = drw.Row<br />
Me.ItemCode.DataBindings.Add("Text", ds.Tables(0), "locid")
the last line bind the first row but i want to bind a cuurent row which is clicked by the user on the datagrid and want to display its values plz help me as soon as possible
|
|
|
|
|
|
Hi guys, I'm on role based security thing. I have a roles table , a users table and a UserRoles table which contains User Id and Role Id (both primary keys). For assigning roles to the users, I have a form which has a combo box for listing all the users and a checked listbox for listing all the roles. To assign a role I select a user and check the role I want to assign. That Information is stored in the UserRoles table.The problem is when I load the form and select a user who as been assigned roles, I need those roles to be checked.The datasource for the checked listbox is the roles table. Any help will be highly appreciated.
Every day is a learning day
|
|
|
|
|
dear friends when the cursor enter the datagrid on the press of tab the cursor moves from one cell to another but i want the cursor to move from one control to another for eg
I have 3 control in the form 1st textbox 2nd datagrid n 3rd button. On the load of the form the cursor focus will be on textbox on the press of tab the cursor will move to datagrid on tab again the cursor will move to the next cell in the datagrid but i want the cursor to focus on the button.
How can i make it possible please help at your ealiest.
Thanks
|
|
|
|
|
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
End Function
This sub capture key messages before the form get's it. You can handle the key message manually from here and set the focus to the next control is keyData = Keys.Tab
Try this, it's how I manage to control where the focus is on my application and it works fine!
A programmer's life is good... or is it?? Ek dink nie so nie!
|
|
|
|
|
what the return value by using String$()??, example:
value = String$(255,32)
Thanks
angela
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
