X Tutup
Skip to content

Commit bbceabc

Browse files
VBAndCsVBAndCs
committed
sVB 3.5.1 and Sahla 1.0
1 parent 7c43786 commit bbceabc

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

56 files changed

+3095
-1009
lines changed

‎DiagramHelper/Designer.vb‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -612,6 +612,8 @@ Public Class Designer
612612
If diagram2.IsEnabled <> v Then diagram2.IsEnabled = v
613613
Dim v2 = If(diagram.GetValue(DiagramPanel.IsDiagramVisibleProperty), Visibility.Visible, Visibility.Hidden)
614614
If diagram2.Visibility <> v2 Then diagram2.Visibility = v2
615+
If diagram2.MinWidth <> pnl.MinWidth Then diagram2.MinWidth = pnl.MinWidth
616+
If diagram2.MinHeight <> pnl.MinHeight Then diagram2.MinHeight = pnl.MinHeight
615617
If diagram2.MaxWidth <> pnl.MaxWidth Then diagram2.MaxWidth = pnl.MaxWidth
616618
If diagram2.MaxHeight <> pnl.MaxHeight Then diagram2.MaxHeight = pnl.MaxHeight
617619

@@ -763,12 +765,17 @@ Public Class Designer
763765

764766
Dim pnl = Helper.GetDiagramPanel(diagram)
765767
If pnl IsNot Nothing Then
768+
pnl.MinWidth = diagram.MinWidth
769+
diagram.MinWidth = 0
770+
pnl.MinHeight = diagram.MinHeight
771+
diagram.MinHeight = 0
766772
pnl.MaxWidth = diagram.MaxWidth
767773
diagram.MaxWidth = Double.PositiveInfinity
768774
pnl.MaxHeight = diagram.MaxHeight
769775
diagram.MaxHeight = Double.PositiveInfinity
770776
pnl.SetSize(diagram.Width, diagram.Height)
771777
End If
778+
772779
diagram.ClearValue(WidthProperty)
773780
diagram.ClearValue(HeightProperty)
774781

‎Readme.md‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
1-
<h1 align="center">Small Visual Basic 3.5</h1>
2-
<h2 align="center">Meet the sVB little daughter, Sahla</h2>
3-
<h3 align="center">Sahla is an Arabic Basic dialect written with sVB</h3>
4-
<p align="center">You can easily customize Sahla by translating its keywords into your language to create your own localized Basic dialect.</p>
1+
<b><center><span style="font-size:3em;">Small Visual Basic 3.5</span>
2+
<b><center><span style="font-size:2em;">Meet the sVB little daughter, [Sahla](https://marketplace.visualstudio.com/items?itemName=ModernVBNET.Sahla)</span>
3+
<b><center><span style="font-size:2em;">Sahla is an Arabic Basic-dialect written with sVB</span>
4+
<b><center><span style="font-size:1em;">You can easily customize Sahla by translating its keywords into your langauge to have your own localized Basic dialect</span>
55
<br><br>
66
<span style="font-size:2em;">You can download the sVB installer from the <a href="https://marketplace.visualstudio.com/items?itemName=ModernVBNET.sVBInstaller"><u>VS marketplace</u></a>.</span>
77
<br><br></center></b>

‎Samples/Sahla Programming Language/Sahla/FrmAbout.sb‎

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
Me.Icon = "s.ico"
12
X = LblYoutube.Text
23
LblYoutube.Text = ""
34
LblYoutube.AppendBoldLink(X, "https://www.youtube.com/@smallvisualbasic")
@@ -12,4 +13,11 @@ LblKP.AppendBoldLink(X, "https://www.amazon.com/dp/B0DNX2ZR4D")
1213

1314
X = LblSamples.Text
1415
LblSamples.Text = ""
15-
LblSamples.AppendBoldLink(X, "Samples/")
16+
LblSamples.AppendBoldLink(X, "%USERPROFILE%\Documents\Sahla Samples")
17+
18+
19+
Sub Form_OnKeyDown()
20+
If Event.LastKey = Keys.Escape Then
21+
Me.Close()
22+
EndIf
23+
EndSub

‎Samples/Sahla Programming Language/Sahla/FrmAbout.sb.gen‎

Lines changed: 11 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -12,6 +12,7 @@
1212
' LblSVB: Label
1313
' LblKP: Label
1414
' LblSamples: Label
15+
' Label9: Label
1516
'}
1617

1718
Me = "frmabout"
@@ -27,13 +28,17 @@ LblYoutube = "frmabout.lblyoutube"
2728
LblSVB = "frmabout.lblsvb"
2829
LblKP = "frmabout.lblkp"
2930
LblSamples = "frmabout.lblsamples"
31+
Label9 = "frmabout.label9"
3032
_path = Program.Directory + "\FrmAbout.xaml"
3133
FrmAbout = Forms.LoadForm("FrmAbout", _path)
3234
Form.SetArgsArr(frmabout, Stack.PopValue("_frmabout_argsArr"))
33-
Form.Show(Me)
34-
Form.Show(Me)
35-
Form.Show(Me)
36-
Form.Show(Me)
37-
Form.Show(Me)
38-
Form.Show(Me)
35+
'#Events{
36+
' FrmAbout: OnKeyDown
37+
'}
38+
39+
' FrmAbout Events:
40+
Control.HandleEvents(FrmAbout)
41+
Control.OnKeyDown = Form_OnKeyDown
42+
43+
3944
Form.Show(Me)

‎Samples/Sahla Programming Language/Sahla/FrmAbout.xaml‎

Lines changed: 1 addition & 1 deletion
Large diffs are not rendered by default.

‎Samples/Sahla Programming Language/Sahla/FrmFind.sb‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
Me.Icon = "s.ico"
12
EditorTextBox = Me.ArgsArr
23
RdoDown.Checked = True
34
TxtFind.Text = Text.Trim(EditorTextBox.SelectedText)

‎Samples/Sahla Programming Language/Sahla/FrmOps.sb‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
1+
Me.Icon = "s.ico"
22
CmbFont.AddItem(Global.FontNames)
33
CmbSize.AddItem({
44
8, 9, 10, 11, 12,

0 commit comments

Comments
 (0)
X Tutup