Visual Basic

Reuven Elliassi29-Oct-06 9:40

Reuven Elliassi

29-Oct-06 9:40

Try this:

<br />
dim S2Split As string = "A1/EXT "BK82 LB73 21233" 105 061018 1804"<br />
dim delim(1) as char<br />
delim(0)="/"<br />
delim(1)=" "<br />
dim f(0) as string<br />
dim I as integer<br />
dim J as short<br />
dim Tmp as string=""<br />
dim Ad as boolean<br />
dim fPos as integer =0<br />
<br />
for i=0 to s2split.length-1<br />
  Ad=true<br />
  for j=0 to 1<br />
    if s2split(i)=delim(j) then ad=false<br />
  end for<br />
  if ad=true then<br />
    tmp=tmp & s2split(i)<br />
  else<br />
    f(fpos)=tmp<br />
    tmp=""<br />
    fpos += 1 'New feature in VB.NET 2005  ;)<br />
    redim preserve f(fpos) 'preserve means that increasing f and saving the                                                     '                          'previous data<br />
  end if<br />
end for<br />

charchabil032-Nov-06 0:20

charchabil03

2-Nov-06 0:20

Dear Reuven.
thx for your help
Just a Question?
Have you tried out this code?
coz when i was trying out ,i faced a problem with the foor loop-(Next)
that's why i couldnt compile this code

Regards
Ramy

Reuven Elliassi2-Nov-06 0:32

Reuven Elliassi

2-Nov-06 0:32

My mistake, I replaced Next I and Next J with end for...

for i=0 to s2split.length-1
Ad=true
for j=0 to 1
if s2split(i)=delim(j) then ad=false

end for

'replace with Next J
if ad=true then
tmp=tmp & s2split(i)
else
f(fpos)=tmp
tmp=""
fpos += 1 'New feature in VB.NET 2005
redim preserve f(fpos) 'preserve means that increasing f and saving the ' 'previous data
end if

end for

'replace with Next I

Reuven

Error opening Crystal Report!

charchabil032-Nov-06 0:56

charchabil03

2-Nov-06 0:56

Dear Reuven
Well no more erros in the code ( thx for that)
but the thing is that ,how can i display the Data?each part alone?should add it to array ?
it will be helpfull if i get ur mail such as Msn email

or kindly add me : abouelrim@hotmail.com

Regards
Ramy

hfl29-Oct-06 1:09

hfl

29-Oct-06 1:09

Hi Following are the code to execute the report:

Public Sub LoadReport(ByVal rptPath As String, ByVal dTbl As DataTable)
Dim oRpt As New ReportDocument
oRpt.Load(rptPath)
oRpt.SetDataSource(dTbl)
crptviewer.ReportSource = oRpt
crptviewer.RefreshReport()
End Sub

Dim ofrmRptViewer As New frmReportViewer
ofrmRptViewer.MdiParent = MDIMain

ofrmRptViewer.LoadReport("D:\DMS Source Code\DMS\Reports\rptDistributors.rpt", ds.Tables(0))
ofrmRptViewer.Show()

I m trying to generate report but the following error is occuring:

DLL 'D:\DMS Source Code\DMS\bin\Debug\CrystalDecisions.CrystalReports.Engine.dll' is attempting managed execution inside OS Loader lock. Do not attempt to run managed code inside a DllMain or image initialization function since doing so can cause the application to hang.

Image Effects in VB.NET

Zaegra29-Oct-06 1:00

29-Oct-06 1:00

Hi,
I'd like to know how i can add some cool image effects to the image in the picturebox like bump, diffuse, colorise, solarise enz. Anyone has some ideas? Laugh | :laugh:

--Zaegra--

Christian Graus29-Oct-06 1:06

Christian Graus

29-Oct-06 1:06

My image processing articles in C# will give you a good starting point.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Zaegra29-Oct-06 1:15

29-Oct-06 1:15

Could you give me a link Wink | ;)

--Zaegra--

http://www.codeproject.com/cs/media/csharpgraphicfilters11.asp[^]

Christian Graus29-Oct-06 1:48

Christian Graus

29-Oct-06 1:48

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Zaegra29-Oct-06 2:29

Re: printing of windows form

29-Oct-06 2:29

Ok thanks

--Zaegra--

printing of windows form

Shahzad Yousuf PIA28-Oct-06 22:28

Shahzad Yousuf PIA

28-Oct-06 22:28

hi
i want to print the win form in vb.net 2005 which contain different control and grphics (lines , circle etc). please give me the sample code
thanks Wink | ;)

Regards Shahzad

Dave Kreskowiak29-Oct-06 16:45

Can someone convert this Excel macro code into a VB code to skip use of Excel program ?

29-Oct-06 16:45

All you have to do is search for "print form" on MSDN and you'd come up with an example[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

chapeau_melon28-Oct-06 19:49

chapeau_melon

28-Oct-06 19:49

First of all tx in advance for reading this post. I'm not a programmer at all, so I even don't know if I'm asking to do this in the wright coding language:

In essence this my project :

I have a .log file that I need to convert structuraly to make it
usefull in FileMaker.

- open the logfile
- In the .log file there is a character that needs to be replaced with
another, to be able to convert it more easely into colums.
- Delete colums the Second and Forth colum (in excel since the shift
places it is first B, than C)
- Then those colums needs to be transposed (rows becomes colums) in order to be able to import them into FileMaker.
- save the logfile

I can do this in Excel but I want to skip the use of Excel. I only like
to use FM because it is going to be a runtime application. My costumers
wont have a 'full version' of FM and may or may not have Excel.

running FM pro 8.5 on Win XP.

Kind regards and Tx in advance !!!!

___________________________________
Option Explicit
Sub ReplaceAndTranspose()

Dim FromChars As Variant
Dim ToChars As Variant
Dim iCtr As Long

FromChars = Array(Chr(28))
ToChars = Array(Chr(124))

If UBound(FromChars) <> UBound(ToChars) Then
MsgBox "design error--make from/to match"
Exit Sub
End If

For iCtr = LBound(FromChars) To UBound(FromChars)
ActiveSheet.Cells.replace What:=FromChars(iCtr), _
Replacement:=ToChars(iCtr), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next iCtr

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True,
OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1),
Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Range("A1:B200").Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveWorkbook.Save

End Sub

VB.Net & Windows98 Compatiblity Problem

manish2428-Oct-06 19:29

manish24

28-Oct-06 19:29

Hi
I need to execute an exe preapred by using vb.net. When i execute it on Windows 98, i faced the following error message " a required dll mscoree.dll is missing".

Please let me know can we execute an vb.net application in windows98, which don't have vb.net installed.

Thanks
Manish

Re: VB.Net & Windows98 Compatiblity Problem

Zaegra29-Oct-06 1:04

Re: VB.Net & Windows98 Compatiblity Problem

29-Oct-06 1:04

You can't run a VB.NET program if you don't have the .NET Framework installed on your computer. You can try creating a program in VB 6, that runs in Windows 98 and in XP, but that means you'll have to convert your project to VB 6 (if possible) or to start all over again, or maybe check Google for some other solutions?

--Zaegra--

Dave Kreskowiak29-Oct-06 16:43

Copying structures to string buffer and back

29-Oct-06 16:43

You have to install the .NET Framework on any machine that's going to run your application.

There are products out there that will let you get around this, by static-linking your app with the .NET Framework, but they cost BIG $$$$.

Dave Kreskowiak
Microsoft MVP - Visual Basic

fromtheotherbay28-Oct-06 18:44

fromtheotherbay

28-Oct-06 18:44

We are using a proprietary string buffer protocol via TCP/IP to transfer string buffers back and forth from the server. In this process, we need to be able to reliably overlay structures onto string buffers and vice versa. The structures can have strings, arrays, chars, dates, numbers as their members.
Can someone suggest a reliable way to accomplish this please?

soumya

Re: Copying structures to string buffer and back

Reuven Elliassi29-Oct-06 9:46

Reuven Elliassi

29-Oct-06 9:46

I understand from your things that you transfer the string, so u want to translate a structure into a string.

one way i think about is to convert the structure into bytes and then decode it back.
for each structure you may need some signs, like: 123 mean start to transfer array. 221 mean start one array layer and 122 mean finish transfer the layer. etc.

How to send mail and Fax from Windos Application in .net 2003

balamurugan8228-Oct-06 16:06

balamurugan82

28-Oct-06 16:06

Urgent

Re: How to send mail and Fax from Windos Application in .net 2003

UltraCoder28-Oct-06 17:11

UltraCoder

28-Oct-06 17:11

To send mail, that requires you to set up a SMTP or POP3 server on your computer (a lot more trouble than it's worth). And, this is really hard to do with Windows, so you'd be better off using something like Linux.

And I don't know about sending a fax, but I'm sure it would be pretty advanced.

Extreme Exe

Re: How to send mail and Fax from Windos Application in .net 2003

Dave Kreskowiak29-Oct-06 16:32

Re: How to send mail and Fax from Windos Application in .net 2003

29-Oct-06 16:32

UltraCoder wrote:
To send mail, that requires you to set up a SMTP or POP3 server on your computer

No, it doesn't! You just need to be able to use a server that's connected to the Internet.

UltraCoder wrote:
(a lot more trouble than it's worth).

For you, maybe. Not for someone who knows how they work.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Dave Kreskowiak29-Oct-06 16:41