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")اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
