|
Have a look at our product "Diamond Licensing". The product page is here[^].
You could use the RegistryStore to keep license data on each machine.
|
|
|
|
|
I am trying to do this loop, so it checks if a value entered is present, if not, it deletes the row, however, the process hangs once it finishes, how do i end the statement (i.e. when all records have been checked, display a message box), as I am not sure where to end it (I thought the end if and wend would end the statement, but do I possibly need an else somewhere?), cheers
p.s. this is VBA in excel 2003, but I assume its the same principal as VB
----
'When a cell contains data, perform the IF...
While Len(Range("B" & CStr(LFindRow)).Value) > 0
'If the cell does not contain the inputted criteria then delete the row
If Range("B" & CStr(LFindRow)).Value <> CustVar Then
Rows(CStr(LFindRow)).Delete
'End the IF
End If
'End/Loop the while
Wend
----
|
|
|
|
|
Hi,
there is a flaw in the logic: when Len is > 0 and the IF fails, the while will loop forever.
You should consider a while without if, i.e. AND together the two conditions in the WHILE.
Luc Pattyn [Forum Guidelines] [My Articles]
this months tips:
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use PRE tags to preserve formatting when showing multi-line code snippets
|
|
|
|
|
I think your problem is that if there is data in the cell but it doesn't match the value you don't go to the next row.
try increasing LFindRow
good luck
|
|
|
|
|
Hi,
I am making an application which had a panel with multiple controls on it. Yet, when I change the resolution of the PC, the layout gets mixed up. Is there any way of easily compensating for this instead of individually adjusting the control sizes, as that is a very tedious task given that I have many controls on the panel.
Thanks in advance,
Ahmad
|
|
|
|
|
Cant you just lock the objects, which would stop them moving (I remember reading something about this??
Also, is it are you going up or down res, or both?
|
|
|
|
|
hi
i have searched everyware i didnt find any help to solve my problem
i want to work with group policy through vb.net
i have 250 computers in our network
our network administrator want an application utility for one click we can manage security
in group policy
Now they have to go to each computer and change permissions in local group policy one by one
about 100 of our computers are not on LAN because of security reasons
i didnt find any article on coding group policy
thanks
khurram saddique
khurram saddique
|
|
|
|
|
There really isn't much of anything in the way of documentation on this. Group Policy is nothing but a set of registry "tweaks" and security configurations encapsulated in a package. Usually, the packages are stored in the domain and distributed to the machine where they are applied by the Policy Manager.
The reason you're not finding anby information on this is because noone ever writes their own applications to manage policy. It's handled by the stuff built-in to Windows. There is very little documentation on it, but it does exist.
If you have the MSDN documentation installed in Visual Studio, hit F1. Make sure the Filter is set to Platform SDK, then type "Group Policy" into the "Look for" box and you'll find what little documentation there is on the architecure, the function reference, structures, interfaces, WMI classes and File Formats. Don't worry about looking for code examples, there are none.
|
|
|
|
|
How can I display a Crystal Report in VB.Net 2005. I have added a report by clicking on the Add\New Item\Crystall Report on the Solution Explorer window. And I have also desined the report and the data is getting fetched in the design mode.
Also how can I change the connection string property during runtime ?
Please Help, I am new to Crystall Reports.
Thanks in advance.
Sekhar
|
|
|
|
|
Hi,
On your Win Form add crystalreportviewer and reportdocument from the Toolbox.
and in code just add following 2 lines :
reportdocument.SetDataSource(dataset1.Tables(0))
crystalreportviewer.ReportSource = reportdocument
where your dataset contains the report data to be displyed.
Regards,
Ujjaval Modi
|
|
|
|
|
There is no Report Document in the ToolBox. Please can u tell me how to add Report Document in the ToolBox....
|
|
|
|
|
I assume you've got an db-view connected to the report. Normaly you don't have to provide the connection string anymore (it's hardwired into the generated report-class), if not you can allways use the DataSource-property of the report.
To show the report you need the CrystalReportViewer-Control (well it should be named something like this). Just put it on a form and set the ReportSource - property of the control to an instance of your report-class (same name as your report - get's generated - sometimes CR has problems with namespaces so look into the object browser) - that's it.
If you just want to print the report you can use the print-functions of the report without the viewer (same for exports - great for PDFs and so on).
Bye the way: I normaly use CR with datasets (so I greate an dataadapter for the dataview I like to see, create the CR with this dataset and then do something like:
<br />
dim report as new CrystalReport1<br />
report.SetDataSource(ctype(dataadapter.GetData(),DataTable))<br />
crviewer1.ReportSource = report<br />
This way I can pass parameters for the view in GetData (if I have any) - filtering in CR tended to be done on the client (i.e. all the data of the table/view was passed to the report and THEN filtered  - don't know if this is still the case but I use the above approach anyway ... )
|
|
|
|
|
I could not find my previous message. So I posted it again with update from Dave Kreskowiak.
Dave: Thanks for your information. I tried your suggestion. However, I could not call Paint Event in sequence. Could you check my simplified code below? Thank you.
Public Class Form1
Dim gl As Integer = 0
Private Sub measure()
Dim i As Integer
For i = 0 To 16
gl = i * gl
If gl = 256 Then
gl = 255
End If
Panel1.Invalidate()
System.Threading.Thread.Sleep(200)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.Invalidate()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
measure()
End Sub
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Panel1.BackColor = Color.FromArgb(gl, gl, gl)
End Sub
End Class
------------------------------Replay from Dave Kreskowiak on 12/2/07 --------------------------------
You cannot put this loop and sleep code in the paint event. Think of the Paint event like a moment in time. It's used to paint a single frame of an animation.
Move the loop and sleep code outside the Paint event and keep track of what the Paint event needs to draw what you want outside the event code. Inside your loop, you update the variables holding the data the paint event needs, call Invalidate on your panel control, then Sleep.
A guide to posting questions on CodeProject[^]
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
------------------------------ Original message-----------------------------------------------------
I used e.Graphics.Clear in Panel.Paint to change gray level of the Panel. Thread.Sleep() was added to set a time delay between pattern update and measurement. However, this delay function did not work as I expected. Image pattern would be updated after Thread.Sleep(), and take measurement right away. I wonder how you add delay function in VB.NET. Please advise this question. Thank you.
Steven
Public Sub PanelPG_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelPG.Paint
for i = 0 to 16
gl = i * 16
e.Graphics.Clear(Color.FromArgb(gl, gl, gl))
System.Threading.Thread.Sleep(200)
objCa.Measure()
Next i
SaveData()
End Sub
|
|
|
|
|
Well I'm not sure if the code will work this way (you will block your GUI-thread with the Sleep) but I won't sugguest doing it this way.
Why don't you use a timer?
By the way: you are handling the Paint-event and in there you are setting the BackColor, normaly you will want to do the actual drawing inside the Paint event!
Try using a timer that is called every 200ms that will update the BackColor of your panel that should do the work.
(By the way: if you need a lot of these things inside your app you might consider moving to WPF - you will get all this for free without doing the coding by yourself  )
|
|
|
|
|
I implemented Timer, but measure() is still called right after Paint Event. Does this mean I need to apply multithreading to make sure Paint Event finishing image update? Is there any tip about how I can apply multithreading in my code?
Thanks.
|
|
|
|
|
No, multithreading will not solve this and will actually make it far more difficult to fix.
Measure is being called when that line executes, in the order it's shown, not after the method it's in finishes.
The reason the code doesn't paint is because immediately after you call Invalidate, you put the UI thread to sleep, and all the drawing with it! Your code never gives the forms message pump time to execute to see the Paint message it's giving and let the Paint event code execute. This is going to be a hacked up way of doing this (with side effects you didn't count on,) but, replace the Thread.Sleep line with Application.DoEvents().
DoEvents releases control to the applications message pump so it can process and dispatch all the pending window messages that have been queing up while your code has been executing, including WM_PAINT messages.
|
|
|
|
|
Thanks for replay.
However, I tried Application.DoEvents(), but I need some function like Thread.Sleep to add delay between Paint Event and Measure(). Otherwise, I still have Measure() happened too fast before Paint Event finished displaying image. Please advise. Thank you.
PanelPG.Invalidate()
t1 = VB.Timer
Do While VB.Timer < t1 + 1
Application.DoEvents()
Loop
Measure ()
|
|
|
|
|
Simple. Insert the Sleep line after the DoEvent line.
I just re-read your code. Putting the Sleep line in this code will stop the UI thread and keep the Paint messages from being processed. You can't put the Sleep line in here at all.
Without seeing the rest of this code, what measure does, and what you want this to do, it's impossible to tell you exactly what to do to fix this. Alot of this problem appears to be comming down to a design problem.
|
|
|
|
|
Hi, Dave:
Thank you very much for your response. I finally got it working after applying two sleep function before and after Measure(). This is somewhat not very efficient. But additional delay gives me a work application at least.
Steven
modified on Monday, December 10, 2007 5:50:01 PM
|
|
|
|
|
I'm unclear how to get control again of a .dll after unloading the domain. I thought the unload would free the file, but it does not seem to. the final line here does not allow the file delete. How do I release it?
Thanks in advance!
Dim SubDomain = AppDomain.CreateDomain("New Domain")
Dim as1 As Assembly = Reflection.Assembly.ReflectionOnlyLoadFrom("MA.dll")
Dim IndicatorClass = SubDomain.CreateInstanceAndUnwrap as1.FullName, "Indicators.Indicator")
AppDomain.Unload(SubDomain)
File.Delete("MA.dll")
|
|
|
|
|
You don't. It'll stay locked so long as your app is running, even if you're not using the code in the .DLL, it's still loaded into your process. There is no way to release the lock without unloading your app.
Why would you want to delete a .DLL anyway??
|
|
|
|
|
My idea is (was?):
1. Load the .dll into a new, separate app and use it.
2. Unload the separate app, allowing the user to edit the .dll (through VBCodeProvider)
3. Reload the new, edited .dll into the separate app.
Honestly, I thought that was the whole idea of the separate app created with CreateDomain -- to allow the user flexibility over loading and unloading apps while keeping the main app running. Have I missed something, or am I not doing this the right way?
|
|
|
|
|
I am using a binding source and when I assign the binding source to a dataTable I get an error that says I used the variable "bsMonStoreSched" before assigning it a value, a green line shows up under the binding Source.
Here is my code. Is there something I am doing wrong?
Also, can I use a single binding source instead of using a different binding source for each item I filter?
If you notice below I used the same dataTable and assigned it to multiple binding sources. Can I do this with one binding source?
Here is the code.
' declare variables<br />
Dim bsMonStoreSched As BindingSource<br />
Dim bsTuesStoreSched As BindingSource<br />
<br />
' create table adapter objects<br />
Dim hoursTableAdapter As New DataSetTableAdapters.tbl_hoursTableAdapter<br />
Dim schedTableAdapter As New DataSetTableAdapters.tbl_store_schedTableAdapter<br />
<br />
' create data set objects<br />
Dim lpDataSet As New DataSet()<br />
<br />
' create dataTables<br />
Dim dtHours, dtSched As New DataTable()<br />
<br />
' fill the dataTables<br />
Try<br />
hoursTableAdapter.Fill(lpDataSet.tbl_hours)<br />
schedTableAdapter.Fill(lpDataSet.tbl_store_sched)<br />
Catch err As Exception<br />
MessageBox.Show(err.Message)<br />
End Try<br />
<br />
dtHours = lpDataSet.tbl_hours<br />
dtSched = lpDataSet.tbl_store_sched<br />
<br />
' Set the binding Source for mon - tues<br />
bsMonStoreSched.DataSource = dtSched ' The green line shows up here<br />
bsTuesStoreSched.DataSource = dtSched<br />
<br />
' Filter the items to show results.<br />
bsMonStoreSched.Filter = "ss_day='Monday'"<br />
bsTuesStoreSched.Filter = "ss_day='Tuesday'"
|
|
|
|
|
You did exactly what the error said you did. You declared two variables that don't point to actual objects of type BindingSource. Depending on what this code is really supposed to be doing, the error is saying that you need to change the first two lines in this snippet to:
' declare variables
Dim bsMonStoreSched As New BindingSource()
Dim bsTuesStoreSched As New BindingSource()
I really doubt you'd be doing this in a method then abandoning the bindingsources. It would appear the you're actually trying to use bindingsources that you already have in your form, in which case, you wouldn't need the first two lines of code, but you would have to change the two lines where the squiggles show up, and the lines thereafter, to use the names of the bindingsources you already have on the form.
|
|
|
|
|
I am calling the binding source programatically instead of dragging and dropping the binding source and table adapter into the forms. When I was using the designer to create the binding source, data table and table adapter the forms designer was generating code that caused the desginer to not show up.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
