10-04-14, 07:32 PM
مثلا لدي هذا السطر
كيف احدث مابين علامتي التنصيص لاضع رابط صورة من كود فيجوال بيسك ؟
نفس السؤال لـ div كيف اسند له نص بالكود
مصدر الصفحة هكذا
وهذا كود المحاولة
كود :
<img src="" />نفس السؤال لـ div كيف اسند له نص بالكود
مصدر الصفحة هكذا
كود :
<head>
<style type="text/css">
.style1 {
width: 90%;
border-style: solid;
border-width: 1px;
}
</style>
</head>
<table align="center" class="style1" dir="rtl">
<tr>
<td bgcolor="ActiveBorder" style="text-align: center">
مثال لتقرير بواسطة تش ام ال</td>
</tr>
<tr>
<td>
<img id="pic" alt="" src="" height="231px" width="231px" />
</td>
</tr>
<tr>
<td id="aname">
</td>
</tr>
<tr>
<td id="mo">
</td>
</tr>
<tr>
<td id="mail">
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td bgcolor="ActiveBorder" style="text-align: center">
مع تحيات اخيكم سعود</td>
</tr>
</table>وهذا كود المحاولة
كود :
Dim html As String = Application.StartupPath & "\aprint.htm"
Dim hweb As New HtmlAgilityPack.HtmlWeb
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.Load(html)
Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("pic")
Dim src As HtmlAgilityPack.HtmlAttribute = nod.Attributes("src")
nod.SetAttributeValue(src.Value, "pics/" & picname)
doc.Save(Application.StartupPath & "\aprint.htm")