Visual Basic

onlyehtisham wrote:

i wrote a function that rounds any image

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever.

---

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