Visual Basic

private Image roundimage(Image img, int radius) {
    Bitmap bmp=new Bitmap(img.Width, img.Height);
    Graphics g=Graphics.FromImage(bmp);
    GraphicsPath z=new GraphicsPath();
    int r=radius;
    int d=r+r;
    int w=bmp.Width;
    int h=bmp.Height;
    z.StartFigure();
    z.AddArc(0, 0, d, d, 180, 90);
    z.AddLine(r, 0, w-r, 0);
    z.AddArc(w-d-1, 0, d, d, 270, 90);
    z.AddLine(w, r, w, h-r);
    z.AddArc(w-d-1, h-d-1, d, d, 0, 90);
    z.AddLine(w-r, h, r, h);
    z.AddArc(0, h-d-1, d, d, 90, 90);
    z.AddLine(0, h-r, 0, r);
    z.CloseFigure();
    g.SetClip(z);
    g.DrawImage(img, 0, 0);
    return bmp;
}

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever.

---

scot_in wrote:

Is there a way I can hide the Excel file the application is using.. and still work on another external Excel file?

scot_in wrote:

Seems like the external Excel workbook is using the same instance of xlApp that was generated thru the code.

scot_in wrote:

Is there a workaround for the above?

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
        On Error GoTo err
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\birth.mdb;"
        cn.Open()
        rs.Open("select * from emp", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
err:
        If Err.Number <> 0 Then
            MsgBox(Err.Description & " " & Err.Number, vbInformation, "Error")
            rstatus = False
        Else
            rstatus = True
        End If

using System.Data.OracleClient;<br />
using System.Data;<br />
<br />
<br />
namespace ORacle_Bind<br />
{<br />
    class DAL <br />
    {<br />
<br />
<br />
        public Dataset Getdata()<br />
        {<br />
            String Constring = "blablabvl";<br />
<br />
            OracleConnection con = new OracleConnection(Constring);<br />
<br />
            OracleCommand cmd = new OracleCommand();<br />
<br />
            OracleDataAdapter da = new OracleDataAdapter();<br />
          <br />
            cmd.CommandText = "your select statement";<br />
<br />
            cmd.CommandType = System.Data.CommandType.Text;<br />
<br />
            cmd.Connection = con;<br />
<br />
            da.SelectCommand= cmd;<br />
           <br />
            DataSet ds = new DataSet();<br />
<br />
<br />
            try<br />
            {<br />
                con.Open();<br />
<br />
<br />
                da.Fill(ds, "My_Table");<br />
            }<br />
            catch (OracleException e)<br />
            {<br />
                throw;<br />
            }<br />
            finally<br />
            {<br />
                con.Close();<br />
            }<br />
            return ds<br />
        }