SliderBox1 Value For .png Max = 10, Def = 9, for .jpg Max = 100, Def …

…= 70
i-nex · Nov 23, 2013 · 260ca67 · 260ca67
1 parent 213eeb2
commit 260ca67
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/src/i-nex/.src/ScreenShot.class b/src/i-nex/.src/ScreenShot.class
@@ -18,7 +18,7 @@ Public Sub Form_Open()
  ComboBox1.Add(".png")
  ComboBox1.Add(".jpg")
  ComboBox1.Text = ".png"
- SliderBox1.Value = 70
+ SliderBox1.Value = 9
 
 End
 
@@ -56,3 +56,15 @@ Public Sub Form_Close()
  Finfosys.Show
 
 End
+
+Public Sub ComboBox1_Click()
+
+ If ComboBox1.Text = ".png" Then
+  SliderBox1.MaxValue = 10
+  SliderBox1.Value = 9
+ Else
+  SliderBox1.MaxValue = 100
+  SliderBox1.Value = 70
+ Endif
+
+End