24-01-21, 01:45 AM
(23-01-21, 03:48 PM)Necro PC كتب : السلام عليكم إخواني الكرام، عندي الكود التالي الخاص بصنع البركود ، وهو كود html :
لكن، كيف أجعل البرنامج يعدل على تلك : data=0329655 و يستبدلها بالقيمة المدخلة في Textbox1 و ينفذه فورا في Chrome أو في آداة الويب الموجود في الفيجوال وشكراPHP كود :
<div style='text-align: center;'>
<!-- insert your custom barcode setting your data in the GET parameter "data" -->
<img alt='Barcode Generator TEC-IT'
src='https://barcode.tec-it.com/barcode.ashx?data=0329655&code=Code128&translate-esc=on'/>
</div>
<div style='padding-top:8px; text-align:center; font-size:15px; font-family: Source Sans Pro, Arial, sans-serif;'>
<!-- back-linking to www.tec-it.com is required -->
<a href='https://www.tec-it.com' title='Barcode Software by TEC-IT' target='_blank'>
TEC-IT Barcode Generator<br/>
<!-- logos are optional -->
<img alt='TEC-IT Barcode Software' border='0'
src='http://www.tec-it.com/pics/banner/web/TEC-IT_Logo_75x75.gif'>
</a>
</div>
وعليكم السلام
تفضل اخي كود بسيط جدا
كود :
Dim html As String = "<div style='text-align: center;'>" & vbCrLf & " <!-- insert your custom barcode setting your data in the GET parameter ""data"" -->" & vbCrLf & " <img alt='Barcode Generator TEC-IT'" & vbCrLf & " src='https://barcode.tec-it.com/barcode.ashx?data=" & TextBox1.Text & "&code=Code128&translate-esc=on'/>" & vbCrLf & "</div>" & vbCrLf & "<div style='padding-top:8px; text-align:center; font-size:15px; font-family: Source Sans Pro, Arial, sans-serif;'>" & vbCrLf & " <!-- back-linking to www.tec-it.com is required -->" & vbCrLf & " <a href='https://www.tec-it.com' title='Barcode Software by TEC-IT' target='_blank'>" & vbCrLf & " TEC-IT Barcode Generator<br/>" & vbCrLf & " <!-- logos are optional -->" & vbCrLf & " <img alt='TEC-IT Barcode Software' border='0'" & vbCrLf & " src='http://www.tec-it.com/pics/banner/web/TEC-IT_Logo_75x75.gif'>" & vbCrLf & " </a>" & vbCrLf & "</div> " & vbCrLf
WebBrowser1.DocumentText = html